Mercurial > hg > xemacs
diff gnus-init.el @ 24:0e5b39d2f8bb
trying to clean up Paul vs. Maritain for Cirrus
| author | ht |
|---|---|
| date | Sat, 07 Oct 2023 10:44:21 +0100 |
| parents | 5738cc494f7f |
| children | cb9b76219c55 |
line wrap: on
line diff
--- a/gnus-init.el Sat Oct 07 10:11:27 2023 +0100 +++ b/gnus-init.el Sat Oct 07 10:44:21 2023 +0100 @@ -20,9 +20,15 @@ gnus-mime-display-multipart-related-as-mixed t gnus-posting-styles `((".*" (signature-file ,mail-signature-file)) - ((header "To" ".*@rsof.hst.name") + ("quaker-2023" (signature-file "/home/ht/.quaker-sig") - (address "ht@rsof.hst.name"))) + (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"))) gnus-simplify-subject-regexp "^\\(re[:;.]\\| \\|fwd:\\)*" gnus-summary-display-arrow nil gnus-summary-gather-subject-limit nil @@ -39,20 +45,21 @@ (setq nnmail-crosspost nil) (setq nnmail-split-methods 'nnmail-split-fancy) -(setq nnmail-split-fancy +(defun set-nnmail-split-fancy () + (setq nnmail-split-fancy (let ((month (format-time-string "%Y-%m" (current-time)))) (cons '| (append '(("Subject" "testing" "jjunk") - (to "quaker-\\(l\\|spectrum\\)" "quaker") + (to "quaker-\\(l\\|spectrum\\)" "quaker-2022") (to "quaker-b" "quaker-b") - (to "w3c-xml-schema-\\([a-z]+\\)" "xml-schema-\\1") - (to "w3c-xml-\\([a-z]+\\)" "xml-\\1" ) - (to "w3c-archive" "refinement") - (to "w3c-\\(xsl-wg\\|format\\|i18n-ig\\)" "xsl") (to "[cC]ygwin" "cygwin") - (to "ding" "gnus") (from "noreply@mrooms.net" "nayler") - (to "ht@rsof.hst.name" "quaker") + (to "ht@rsof.hst.name" "quaker-2023") + (to "Wardenship@lists.quaker.eu.org" "wardens") + (to "mhmcc@rsof.hst.name" "mhmcc-2023") + ("Envelope-to" "mhmcc@rsof.hst.name" + (| (from "mhmcc@rsof.hst.name" junk) + "mhmcc-2023")) (to "mfw@rsof.hst.name" "7vt") (to "zphdaily" (concat "pers-" month)) (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" ) @@ -63,7 +70,14 @@ (concat "group-" (format-time-string "%Y-%m" (current-time)) - "")))))) + ""))))))) + +(set-nnmail-split-fancy) + +(defun set-ht-compiled-split () + (interactive) + (set-nnmail-split-fancy)) + (setq gnus-show-mime t) (defun ht-gnus-summary-delete-forward ()