Mercurial > hg > xemacs

comparison gnus-init.el @ 24:0e5b39d2f8bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
trying to clean up Paul vs. Maritain for Cirrus
author ht
date Sat, 07 Oct 2023 10:44:21 +0100
parents 5738cc494f7f
children cb9b76219c55
comparison
equal deleted inserted replaced
23:5738cc494f7f 24:0e5b39d2f8bb
18 gnus-inhibit-mime-unbuttonizing nil 18 gnus-inhibit-mime-unbuttonizing nil
19 gnus-ignored-headers "^Errors-To:\\|^Precedence:\\|^UNIX-From:" 19 gnus-ignored-headers "^Errors-To:\\|^Precedence:\\|^UNIX-From:"
20 gnus-mime-display-multipart-related-as-mixed t 20 gnus-mime-display-multipart-related-as-mixed t
21 gnus-posting-styles `((".*" 21 gnus-posting-styles `((".*"
22 (signature-file ,mail-signature-file)) 22 (signature-file ,mail-signature-file))
23 ((header "To" ".*@rsof.hst.name") 23 ("quaker-2023"
24 (signature-file "/home/ht/.quaker-sig") 24 (signature-file "/home/ht/.quaker-sig")
25 (address "ht@rsof.hst.name"))) 25 (address "ht@rsof.hst.name"))
26 ("mhmcc-2023"
27 (signature-file "/home/ht/.mhmcc-sig")
28 ("Reply-to" "sesam.emh.management@gmail.com")
29 (name "HST as Convenor SESAM MHMC")
30 (address "mhmcc@rsof.hst.name")
31 ("Bcc" "sesam.emh.management@gmail.com")))
26 gnus-simplify-subject-regexp "^\\(re[:;.]\\| \\|fwd:\\)*" 32 gnus-simplify-subject-regexp "^\\(re[:;.]\\| \\|fwd:\\)*"
27 gnus-summary-display-arrow nil 33 gnus-summary-display-arrow nil
28 gnus-summary-gather-subject-limit nil 34 gnus-summary-gather-subject-limit nil
29 gnus-summary-line-format "%U%R%5N%I%(%[%4L: %-12,12A%]%) %s\n" 35 gnus-summary-line-format "%U%R%5N%I%(%[%4L: %-12,12A%]%) %s\n"
30 gnus-summary-make-false-root 'none 36 gnus-summary-make-false-root 'none
37 43
38 (setq bbdb/news-auto-create-p t) 44 (setq bbdb/news-auto-create-p t)
39 45
40 (setq nnmail-crosspost nil) 46 (setq nnmail-crosspost nil)
41 (setq nnmail-split-methods 'nnmail-split-fancy) 47 (setq nnmail-split-methods 'nnmail-split-fancy)
42 (setq nnmail-split-fancy 48 (defun set-nnmail-split-fancy ()
49 (setq nnmail-split-fancy
43 (let ((month (format-time-string "%Y-%m" (current-time)))) 50 (let ((month (format-time-string "%Y-%m" (current-time))))
44 (cons '| 51 (cons '|
45 (append '(("Subject" "testing" "jjunk") 52 (append '(("Subject" "testing" "jjunk")
46 (to "quaker-\\(l\\|spectrum\\)" "quaker") 53 (to "quaker-\\(l\\|spectrum\\)" "quaker-2022")
47 (to "quaker-b" "quaker-b") 54 (to "quaker-b" "quaker-b")
48 (to "w3c-xml-schema-\\([a-z]+\\)" "xml-schema-\\1")
49 (to "w3c-xml-\\([a-z]+\\)" "xml-\\1" )
50 (to "w3c-archive" "refinement")
51 (to "w3c-\\(xsl-wg\\|format\\|i18n-ig\\)" "xsl")
52 (to "[cC]ygwin" "cygwin") 55 (to "[cC]ygwin" "cygwin")
53 (to "ding" "gnus")
54 (from "noreply@mrooms.net" "nayler") 56 (from "noreply@mrooms.net" "nayler")
55 (to "ht@rsof.hst.name" "quaker") 57 (to "ht@rsof.hst.name" "quaker-2023")
58 (to "Wardenship@lists.quaker.eu.org" "wardens")
59 (to "mhmcc@rsof.hst.name" "mhmcc-2023")
60 ("Envelope-to" "mhmcc@rsof.hst.name"
61 (| (from "mhmcc@rsof.hst.name" junk)
62 "mhmcc-2023"))
56 (to "mfw@rsof.hst.name" "7vt") 63 (to "mfw@rsof.hst.name" "7vt")
57 (to "zphdaily" (concat "pers-" month)) 64 (to "zphdaily" (concat "pers-" month))
58 (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" ) 65 (to "inf\\(pg\\|msc\\|teach\\|res\\|staff\\)" "inf-\\1" )
59 ) 66 )
60 (list (list 'to 67 (list (list 'to
61 "ht\\|h\\.?thompson?" 68 "ht\\|h\\.?thompson?"
62 (concat "pers-" month)) 69 (concat "pers-" month))
63 (concat "group-" 70 (concat "group-"
64 (format-time-string 71 (format-time-string
65 "%Y-%m" (current-time)) 72 "%Y-%m" (current-time))
66 "")))))) 73 "")))))))
74
75 (set-nnmail-split-fancy)
76
77 (defun set-ht-compiled-split ()
78 (interactive)
79 (set-nnmail-split-fancy))
80
67 (setq gnus-show-mime t) 81 (setq gnus-show-mime t)
68 82
69 (defun ht-gnus-summary-delete-forward () 83 (defun ht-gnus-summary-delete-forward ()
70 "REAL delete for nnmail gnus" 84 "REAL delete for nnmail gnus"
71 (interactive) 85 (interactive)