Mercurial > hg > xemacs
diff mail-from-m.el @ 52:f3ab63e5c39f
add auto-year to mmhcc, quaker
| author | Henry S Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Mon, 08 Jan 2024 18:57:11 +0000 |
| parents | 06ccca1d4756 |
| children | bcb51a32799d |
line wrap: on
line diff
--- a/mail-from-m.el Mon Jan 08 18:03:13 2024 +0000 +++ b/mail-from-m.el Mon Jan 08 18:57:11 2024 +0000 @@ -24,19 +24,21 @@ (defun set-nnmail-split-fancy () (setq nnmail-split-fancy - (let ((month (format-time-string "%Y-%m" (current-time)))) + (let ((month (format-time-string "%Y-%m" (current-time))) + (year (format-time-string "%Y" (current-time))) + ) (cons '| - (append '(("Subject" "testing" "jjunk") + (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" "quaker-2023") + (to "ht@rsof.hst.name" ,(concat "quaker-" year)) (to "Wardenship@lists.quaker.eu.org" "wardens") - (to "mhmcc@rsof.hst.name" "mhmcc-2023") + (to "mhmcc@rsof.hst.name" ,(concat "mhmcc-" year)) ("Envelope-to" "mhmcc@rsof.hst.name" (| (from "mhmcc@rsof.hst.name" junk) - "mhmcc-2023")) + ,(concat "mhmcc-" year))) (to "mfw@rsof.hst.name" "7vt") (to "zphdaily" (concat "pers-" month)) (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" ) @@ -49,17 +51,30 @@ "%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