Mercurial > hg > xemacs

comparison mail-from-m.el @ 52:f3ab63e5c39f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
51:f3d3d458dd05 52:f3ab63e5c39f
22 22
23 (setq mail-archive-file-name (expand-file-name "~/mail/cpy/general")) 23 (setq mail-archive-file-name (expand-file-name "~/mail/cpy/general"))
24 24
25 (defun set-nnmail-split-fancy () 25 (defun set-nnmail-split-fancy ()
26 (setq nnmail-split-fancy 26 (setq nnmail-split-fancy
27 (let ((month (format-time-string "%Y-%m" (current-time)))) 27 (let ((month (format-time-string "%Y-%m" (current-time)))
28 (year (format-time-string "%Y" (current-time)))
29 )
28 (cons '| 30 (cons '|
29 (append '(("Subject" "testing" "jjunk") 31 (append `(("Subject" "testing" "jjunk")
30 (to "quaker-\\(l\\|spectrum\\)" "quaker-2022") 32 (to "quaker-\\(l\\|spectrum\\)" "quaker-2022")
31 (to "quaker-b" "quaker-b") 33 (to "quaker-b" "quaker-b")
32 (to "[cC]ygwin" "cygwin") 34 (to "[cC]ygwin" "cygwin")
33 (from "noreply@mrooms.net" "nayler") 35 (from "noreply@mrooms.net" "nayler")
34 (to "ht@rsof.hst.name" "quaker-2023") 36 (to "ht@rsof.hst.name" ,(concat "quaker-" year))
35 (to "Wardenship@lists.quaker.eu.org" "wardens") 37 (to "Wardenship@lists.quaker.eu.org" "wardens")
36 (to "mhmcc@rsof.hst.name" "mhmcc-2023") 38 (to "mhmcc@rsof.hst.name" ,(concat "mhmcc-" year))
37 ("Envelope-to" "mhmcc@rsof.hst.name" 39 ("Envelope-to" "mhmcc@rsof.hst.name"
38 (| (from "mhmcc@rsof.hst.name" junk) 40 (| (from "mhmcc@rsof.hst.name" junk)
39 "mhmcc-2023")) 41 ,(concat "mhmcc-" year)))
40 (to "mfw@rsof.hst.name" "7vt") 42 (to "mfw@rsof.hst.name" "7vt")
41 (to "zphdaily" (concat "pers-" month)) 43 (to "zphdaily" (concat "pers-" month))
42 (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" ) 44 (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" )
43 ) 45 )
44 (list (list 'to 46 (list (list 'to
47 (concat "group-" 49 (concat "group-"
48 (format-time-string 50 (format-time-string
49 "%Y-%m" (current-time)) 51 "%Y-%m" (current-time))
50 ""))))))) 52 "")))))))
51 53
54 (defun set-ht-compiled-split ()
55 (interactive)
56 (set-nnmail-split-fancy))
57
52 (setq gnus-posting-styles 58 (setq gnus-posting-styles
53 `((".*" 59 `((".*"
54 (signature-file ,mail-signature-file)) 60 (signature-file ,mail-signature-file))
55 ("quaker-2023" 61 ("quaker-2023"
56 (signature-file "/home/ht/.quaker-sig") 62 (signature-file "/home/ht/.quaker-sig")
57 (address "ht@rsof.hst.name")) 63 (address "ht@rsof.hst.name"))
64 ("quaker-2024"
65 (signature-file "/home/ht/.quaker-sig")
66 (address "ht@rsof.hst.name"))
58 ("mhmcc-2023" 67 ("mhmcc-2023"
68 (signature-file "/home/ht/.mhmcc-sig")
69 ("Reply-to" "sesam.emh.management@gmail.com")
70 (name "HST as Convenor SESAM MHMC")
71 (address "mhmcc@rsof.hst.name")
72 ("Bcc" "sesam.emh.management@gmail.com"))
73 ("mhmcc-2024"
59 (signature-file "/home/ht/.mhmcc-sig") 74 (signature-file "/home/ht/.mhmcc-sig")
60 ("Reply-to" "sesam.emh.management@gmail.com") 75 ("Reply-to" "sesam.emh.management@gmail.com")
61 (name "HST as Convenor SESAM MHMC") 76 (name "HST as Convenor SESAM MHMC")
62 (address "mhmcc@rsof.hst.name") 77 (address "mhmcc@rsof.hst.name")
63 ("Bcc" "sesam.emh.management@gmail.com")))) 78 ("Bcc" "sesam.emh.management@gmail.com"))))