;;; Load to read and send mail from maritain

(setq mail-append-host "home.hst.name")
(setq user-full-name "Henry S. Thompson")
(setq user-mail-address "ht@home.hst.name")
(setq mail-host-address "home.hst.name")
(setq mail-signature-file "/home/ht/.sig.pers")
(setq mail-signature t)
(setq message-signature-file "/home/ht/.sig.pers")
(setq message-signature t)
(defun system-name () "home.hst.name")

(setq gnus-default-directory "/home/ht"
      gnus-home-directory "/home/ht"
      my-mail-dir "/home/ht/mail"
      mail-sources '((file :path "/var/spool/mail/ht"))
      mail-archive-file-name (concat my-mail-dir "/cpy/general/"
				     (format-time-string
				      "%Y-%m" (current-time))
				     ".mbox")
)

(setq mail-archive-file-name (expand-file-name "~/mail/cpy/general"))

(defun set-nnmail-split-fancy ()
  (setq nnmail-split-fancy
      (let ((month (format-time-string "%Y-%m" (current-time)))
	    (year (format-time-string "%Y" (current-time)))
	    )
      (cons '|
	    (append `(("Subject" "testing" "jjunk")
		      (to "quaker-\\(l\\|spectrum\\)" "quaker-2022")
		      (to "quaker-b" "quaker-b")
		      (to "[cC]ygwin" "cygwin")
		      (from "noreply@mrooms.net" "nayler")
		      (to "ht@rsof.hst.name" ,(concat "quaker-" year))
		      (to "Wardenship@lists.quaker.eu.org" "wardens")
		      (to "mhmcc@rsof.hst.name" ,(concat "mhmcc-" year))
		      ("Envelope-to" "mhmcc@rsof.hst.name"
		       (| (from "mhmcc@rsof.hst.name" junk)
			  ,(concat "mhmcc-" year)))
		      (to "mfw@rsof.hst.name" "7vt")
		      (to "zphdaily" (concat "pers-" month))
		      (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" )
		      )
		    (list (list 'to
				"ht\\|h\\.?thompson?"
				(concat "pers-" month))
			  (concat "group-"
				  (format-time-string
				   "%Y-%m" (current-time))
				  "")))))))

(defun set-ht-compiled-split ()
  (interactive)
  (set-nnmail-split-fancy))

(setq gnus-posting-styles
      `((".*"
	 (signature-file ,mail-signature-file))
	("quaker-2023"
	 (signature-file "/home/ht/.quaker-sig")
	 (address "ht@rsof.hst.name"))
	("quaker-2024"
	 (signature-file "/home/ht/.quaker-sig")
	 (address "ht@rsof.hst.name"))
	("mhmcc-2023"
	 (signature-file "/home/ht/.mhmcc-sig")
	 ("Reply-to" "sesam.emh.management@gmail.com")
	 (name "HST as Convenor SESAM MHMC")
	 (address "mhmcc@rsof.hst.name")
	 ("Bcc" "sesam.emh.management@gmail.com"))
	("mhmcc-2024"
	 (signature-file "/home/ht/.mhmcc-sig")
	 ("Reply-to" "sesam.emh.management@gmail.com")
	 (name "HST as Convenor SESAM MHMC")
	 (address "mhmcc@rsof.hst.name")
	 ("Bcc" "sesam.emh.management@gmail.com"))))

;; sending mail on the road
;(setq send-mail-function 'smtpmail-send-it)
;(setq message-send-mail-function 'smtpmail-send-it)
;(setq smtpmail-default-smtp-server "localhost")
;(setq smtpmail-smtp-service "smtp")
;(setq smtpmail-local-domain "home.hst.name")
(setq smtpmail-debug-info t)
(load "smtpmail" nil t)
(setq smtpmail-code-conv-from nil)


(defun quaker-sig-maybe ()
  (save-excursion
    (goto-char (point-min))
    (cond ((to-quaker-p)
	   (goto-char (point-min))
	   (cond ((search-forward "\nFrom: ht@home.hst.name" nil t)
					;; will fail on mhmcc
		  (backward-char 13)
		  (delete-char 4)
		  (insert "rsof")
		  (goto-char (point-max))
		  (search-backward "\n-- \n")
		  (when (looking-at "\n-- \nHenry")
		    (forward-char 5)
		    (kill-entire-line 5)
		    (insert-file "~/.quaker-sig"))))))))

(provide 'mail-from-m)