Mercurial > hg > xemacs

comparison gnus-init.el @ 43:eee08de75336

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to do better at where news/mail/init stuff is handled, works on ecclerig, mostly, but may break maritain
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Sat, 16 Dec 2023 21:10:30 +0000
parents cb9b76219c55
children 40e245d3d1b3 06ccca1d4756
comparison
equal deleted inserted replaced
42:597d985bf448 43:eee08de75336
4 (require 'mail-from-inf)) 4 (require 'mail-from-inf))
5 (maritain 5 (maritain
6 (require 'mail-from-m) 6 (require 'mail-from-m)
7 )) 7 ))
8 8
9 ;; things based on my-mail-dir, which is set in one of the above 9 ;; things based on my-mail-dir, or set-ht-compiled-split
10 10 ;; which are defined in one of the above
11 (setq gnus-article-save-directory (concat my-mail-dir "/Mail") 11
12 nnml-directory (expand-file-name (concat my-mail-dir "/Mail")) 12 (set-ht-compiled-split)
13 gnus-message-archive-method 13
14 '(nnfolder "archive" 14 (setq
15 ;; the following two are not taking effect, not sure why, answer 15 gnus-article-save-directory (expand-file-name (concat my-mail-dir "/Mail"))
16 ;; _may_ lie in gnus-setup-news... 16 nnml-directory (expand-file-name (concat my-mail-dir "/Mail"))
17 (nnfolder-directory (concat my-mail-dir "/cpy")) 17 gnus-message-archive-method
18 (nnfolder-active-file (concat my-mail-dir "/cpy/active"))) 18 '(nnfolder "archive"
19 mail-sources '((file :path "/var/spool/mail/ht"))) 19 ;; the following two are not taking effect, not sure why, answer
20 ;; _may_ lie in gnus-setup-news...
21 (nnfolder-directory (concat my-mail-dir "/cpy"))
22 (nnfolder-active-file (concat my-mail-dir "/cpy/active")))
23 )
20 24
21 (setq gnus-novice-user nil) 25 (setq gnus-novice-user nil)
22 26
23 (setq gnus-message-archive-group 27 (setq gnus-message-archive-group
24 '((concat "general." (format-time-string 28 '((concat "general." (format-time-string
74 (add-hook 'gnus-message-setup-hook 'quaker-sig-if-to-quaker) 78 (add-hook 'gnus-message-setup-hook 'quaker-sig-if-to-quaker)
75 79
76 (setq nnmail-crosspost nil) 80 (setq nnmail-crosspost nil)
77 (setq nnmail-split-methods 'nnmail-split-fancy) 81 (setq nnmail-split-methods 'nnmail-split-fancy)
78 82
83 (setq white-subjects "\\b\\(phd\\|ilcc\\)\\b")
84
79 (setq white-domains (list)) 85 (setq white-domains (list))
80 86
81 (setq ad-domains (list "planetx.co.uk" "substack.com")) 87 (setq ad-domains (list "planetx.co.uk" "substack.com"))
82 88
83 (defvar ht-compiled-split nil) 89 (defvar ht-compiled-split nil)
84
85 (defun set-ht-compiled-split ()
86 "update the mail splitting rules"
87 (interactive)
88 (set-nnmail-split-fancy))
89 90
90 (setq gnus-show-mime t) ; stale 91 (setq gnus-show-mime t) ; stale
91 (setq mml1991-use 'pgg 92 (setq mml1991-use 'pgg
92 mml2015-use 'pgg 93 mml2015-use 'pgg
93 mm-verify-option 'always) 94 mm-verify-option 'always)