Mercurial > hg > xemacs

comparison mail-from-inf.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 f593eacb57b0
children 963ac2f8e386
comparison
equal deleted inserted replaced
42:597d985bf448 43:eee08de75336
1 (setq my-mail-dir "/disk/scratch/mail" 1 (setq my-mail-dir "/disk/scratch/mail"
2 gnus-your-organization "HCRC, University of Edinburgh" 2 gnus-your-organization "HCRC, University of Edinburgh"
3 gnus-default-directory "/afs/inf.ed.ac.uk/user/h/ht" 3 gnus-home-directory "/disk/scratch/gnus"
4 gnus-default-directory "/disk/scratch"
4 nnmail-message-id-cache-file "/disk/scratch/gnus/.nnmail-cache" 5 nnmail-message-id-cache-file "/disk/scratch/gnus/.nnmail-cache"
5 mail-sources 6 mail-sources
6 '((file :path "/disk/scratch/mail/ht_mbox")) 7 '((file :path "/disk/scratch/mail/ht_mbox"))
7 mail-source-crash-box "/tmp/crashbox" ; local disk 8 mail-source-crash-box "/tmp/crashbox" ; local disk
8 nndraft-directory "/disk/scratch/drafts/" 9 nndraft-directory "/disk/scratch/drafts/"
9 message-auto-save-directory "/disk/scratch/drafts/" 10 message-auto-save-directory "/disk/scratch/drafts/"
11 mail-archive-file-name (concat "/disk/scratch/mail/cpy/general/"
12 (format-time-string
13 "%Y-%m" (current-time))
14 ".mbox")
10 ) 15 )
11 16
17 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
18
19 (setq rmail-show-mime nil)
20 (set-default 'ht-last-file (expand-file-name "/disk/scratch/mail/"))
21 (setq ht-diary-file-name "/disk/scratch/mail/diary.babyl")
22 (setq user-mail-address "ht@inf.ed.ac.uk")
23 (setq mail-append-host "inf.ed.ac.uk")
24 (setq mail-host-address "inf.ed.ac.uk")
25 (setq rmail-spool-directory (file-name-as-directory
26 (concat rmail-spool-directory
27 "ht-mail")))
28 ;; don't know why this is necessary
29 (setq rmail-primary-inbox-list
30 (list (concat rmail-spool-directory "ht")))
31
12 (setq white-subjects "\\b\\(phd\\|ilcc\\)\\b") 32 (setq white-subjects "\\b\\(phd\\|ilcc\\)\\b")
13 33
34 (setq white-domains (list))
35
36 (setq ad-domains (list "planetx.co.uk"))
37
14 (setq w3c-lists1 38 (setq w3c-lists1
15 '((list "w3c-xml-schema-\\([a-zA-Z]+\\)\\(\\.w3\\.org\\)?" "xml-schema-\\1") 39 '((any "w3c-xml-schema-\\([a-zA-Z]+\\)\\(@\\.w3\\.org\\)?" "xml-schema-\\1")
16 (list "chairs\\(\\.w3\\.org\\)?" "w3c-chairs" ) 40 (any "chairs\\(@\\.w3\\.org\\)?" "w3c-chairs" )
17 (to "\\(w3c\\|public\\|member\\)-xml-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" 41 (to "\\(w3c\\|public\\|member\\)-xml-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?"
18 "xml-\\2" ) 42 "xml-\\2" )
19 ;(list "w3t-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" "w3t-\\1") 43 ;(list "w3t-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" "w3t-\\1")
20 ;(list "team-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" "w3-team-\\1") 44 ;(list "team-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" "w3-team-\\1")
21 ;(list "w3c-\\(xsl-wg\\|format\\|i18n-ig\\)\\(\\.w3\\.org\\)?" "w3c-xsl") 45 ;(list "w3c-\\(xsl-wg\\|format\\|i18n-ig\\)\\(\\.w3\\.org\\)?" "w3c-xsl")
22 (list "w3c-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" "w3c-\\1") 46 (any "w3c-\\([-a-zA-Z]+\\)\\(@\\.w3\\.org\\)?" "w3c-\\1")
23 (list "member-\\(ac-uk\\|access\\)" "w3-member-\\1");[-a-zA-Z]+\\) 47 (any "member-\\(ac-uk\\|access\\)" "w3-member-\\1");[-a-zA-Z]+\\)
24 (to "public-xpointer-registry\\(-request\\)?" 48 (to "public-xpointer-registry\\(-request\\)?"
25 "xpointer-registry");[-a-zA-Z]+ 49 "xpointer-registry");[-a-zA-Z]+
26 (to "public-\\([-a-zA-Z]+\\)" "w3-public-\\1") 50 (to "public-\\([-a-zA-Z]+\\)" "w3-public-\\1")
27 (to "w3c-xml-schema-\\([a-zA-Z]+\\)" "xml-schema-\\1") 51 (to "w3c-xml-schema-\\([a-zA-Z]+\\)" "xml-schema-\\1")
28 (to "chairs" "w3c-chairs") 52 (to "chairs" "w3c-chairs")
54 ;(to "xml-sig" "xml-python") 78 ;(to "xml-sig" "xml-python")
55 ;(to "xml-plenary" "xml-plenary") 79 ;(to "xml-plenary" "xml-plenary")
56 )) 80 ))
57 81
58 (setq xml-lists2 82 (setq xml-lists2
59 '((list "ietf-xml-mime\\.imc\\.org" "xml-mime") 83 '((any "ietf-xml-mime\\.imc\\.org" "xml-mime")
60 (list "xml-mime\\.ietf\\.org" "xml-mime"))) 84 (any "xml-mime\\.ietf\\.org" "xml-mime")))
61 85
62 (setq misc-list1 86 (setq misc-list1
63 '(;(from "w3t-\\([a-zA-Z]+\\)-request" "w3t-\\1") 87 '(;(from "w3t-\\([a-zA-Z]+\\)-request" "w3t-\\1")
64 ;(from "w3c-\\([a-zA-Z]+\\)-request" "w3c-\\1") 88 ;(from "w3c-\\([a-zA-Z]+\\)-request" "w3c-\\1")
65 ;(from "xml-\\([a-zA-Z]+\\)-request" "xml-\\1") 89 ;(from "xml-\\([a-zA-Z]+\\)-request" "xml-\\1")
155 ;(to "TEI-L" "tei") 179 ;(to "TEI-L" "tei")
156 (to "\\(announcements\\|unicode\\)@.*[.]unicode[.]org" "unicode") 180 (to "\\(announcements\\|unicode\\)@.*[.]unicode[.]org" "unicode")
157 ;(to "squid-users@lists.squid-cache.org\\|squid-users@squid-cache.org" 181 ;(to "squid-users@lists.squid-cache.org\\|squid-users@squid-cache.org"
158 ; "squid") 182 ; "squid")
159 (to "exist-open" "exist") 183 (to "exist-open" "exist")
160 (list "ilcc-\\([a-zA-Z]+\\)" "ilcc-\\1") 184 (any "ilcc-\\([a-zA-Z]+\\)" "ilcc-\\1")
161 (to "ilcc" "ilcc") 185 (to "ilcc" "ilcc")
162 (to ".*lecturers@inf.ed.ac.uk" "inf-teach") 186 (to ".*lecturers@inf.ed.ac.uk" "inf-teach")
163 (to "\\(aisyllabus\\|acstaff\\)" "inf-teach") 187 (to "\\(aisyllabus\\|acstaff\\)" "inf-teach")
164 (to "\\(inf\\)?\\(pg\\|msc\\|teach\\|res\\|staff\\)\@inf\\(ormatics\\)?" 188 (to "\\(inf\\)?\\(pg\\|msc\\|teach\\|res\\|staff\\)\@inf\\(ormatics\\)?"
165 "inf-\\2" ) 189 "inf-\\2" )
167 (to "common-crawl@googlegroups.com" "ccrawl") 191 (to "common-crawl@googlegroups.com" "ccrawl")
168 ;(list "inkscape-user\\|openbox\\|ffmpeg-user" "misc-list") 192 ;(list "inkscape-user\\|openbox\\|ffmpeg-user" "misc-list")
169 )) 193 ))
170 194
171 (defconst ht-spam-res '("bfSPAM" "boSPAM" "edSPAM" "saSPAM" "slSPAM")) 195 (defconst ht-spam-res '("bfSPAM" "boSPAM" "edSPAM" "saSPAM" "slSPAM"))
196
197 (defun log-good-sender (sres)
198 (message "good sender %s with result %s" (get-from-gnus-addr) sres))
172 199
173 (setq nnmail-split-fancy 200 (setq nnmail-split-fancy
174 '(| 201 '(|
175 (to "ht\\+d@inf\\.ed\\.ac\\.uk" "_diary") 202 (to "ht\\+d@inf\\.ed\\.ac\\.uk" "_diary")
176 (! 203 (!
267 (kill-buffer sco))) 294 (kill-buffer sco)))
268 (gnus-edit-and-move-to-diary '(16 . t))) 295 (gnus-edit-and-move-to-diary '(16 . t)))
269 (gnus-summary-exit) 296 (gnus-summary-exit)
270 ) 297 )
271 ) 298 )
299
300 (provide 'mail-from-inf)