# HG changeset patch
# User Henry S Thompson <ht@inf.ed.ac.uk>
# Date 1704740231 0
# Node ID f3ab63e5c39f436738ade541f26c04b73caad1a7
# Parent  f3d3d458dd0525d6a5a5923f49badf3317aafa96
add auto-year to mmhcc, quaker

diff -r f3d3d458dd05 -r f3ab63e5c39f mail-from-m.el
--- 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