Mercurial > hg > xemacs
annotate mail-from-inf.el @ 67:a9b2a2335782 default tip
make setting advert whiten as well if needed,
handle naked div in replying to html
| author | Henry S Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Sat, 21 Dec 2024 20:00:43 +0000 |
| parents | 963ac2f8e386 |
| children |
| rev | line source |
|---|---|
| 39 | 1 (setq my-mail-dir "/disk/scratch/mail" |
| 2 gnus-your-organization "HCRC, University of Edinburgh" | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
3 gnus-home-directory "/disk/scratch/gnus" |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
4 gnus-default-directory "/disk/scratch" |
| 39 | 5 nnmail-message-id-cache-file "/disk/scratch/gnus/.nnmail-cache" |
| 6 mail-sources | |
| 7 '((file :path "/disk/scratch/mail/ht_mbox")) | |
| 8 mail-source-crash-box "/tmp/crashbox" ; local disk | |
| 9 nndraft-directory "/disk/scratch/drafts/" | |
| 10 message-auto-save-directory "/disk/scratch/drafts/" | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
11 mail-archive-file-name (concat "/disk/scratch/mail/cpy/general/" |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
12 (format-time-string |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
13 "%Y-%m" (current-time)) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
14 ".mbox") |
| 39 | 15 ) |
| 16 | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
17 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" ) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
18 |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
19 (setq rmail-show-mime nil) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
20 (set-default 'ht-last-file (expand-file-name "/disk/scratch/mail/")) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
21 (setq ht-diary-file-name "/disk/scratch/mail/diary.babyl") |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
22 (setq user-mail-address "ht@inf.ed.ac.uk") |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
23 (setq mail-append-host "inf.ed.ac.uk") |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
24 (setq mail-host-address "inf.ed.ac.uk") |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
25 (setq rmail-spool-directory (file-name-as-directory |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
26 (concat rmail-spool-directory |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
27 "ht-mail"))) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
28 ;; don't know why this is necessary |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
29 (setq rmail-primary-inbox-list |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
30 (list (concat rmail-spool-directory "ht"))) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
31 |
| 39 | 32 (setq white-subjects "\\b\\(phd\\|ilcc\\)\\b") |
| 33 | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
34 (setq white-domains (list)) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
35 |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
36 (setq ad-domains (list "planetx.co.uk")) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
37 |
| 39 | 38 (setq w3c-lists1 |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
39 '((any "w3c-xml-schema-\\([a-zA-Z]+\\)\\(@\\.w3\\.org\\)?" "xml-schema-\\1") |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
40 (any "chairs\\(@\\.w3\\.org\\)?" "w3c-chairs" ) |
| 39 | 41 (to "\\(w3c\\|public\\|member\\)-xml-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" |
| 42 "xml-\\2" ) | |
| 43 ;(list "w3t-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" "w3t-\\1") | |
| 44 ;(list "team-\\([-a-zA-Z]+\\)\\(\\.w3\\.org\\)?" "w3-team-\\1") | |
| 45 ;(list "w3c-\\(xsl-wg\\|format\\|i18n-ig\\)\\(\\.w3\\.org\\)?" "w3c-xsl") | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
46 (any "w3c-\\([-a-zA-Z]+\\)\\(@\\.w3\\.org\\)?" "w3c-\\1") |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
47 (any "member-\\(ac-uk\\|access\\)" "w3-member-\\1");[-a-zA-Z]+\\) |
| 39 | 48 (to "public-xpointer-registry\\(-request\\)?" |
| 49 "xpointer-registry");[-a-zA-Z]+ | |
| 50 (to "public-\\([-a-zA-Z]+\\)" "w3-public-\\1") | |
| 51 (to "w3c-xml-schema-\\([a-zA-Z]+\\)" "xml-schema-\\1") | |
| 52 (to "chairs" "w3c-chairs") | |
| 53 (to "w3c-xml-\\([-a-zA-Z]+\\)" "xml-\\1" ) | |
| 54 (to "www-xml-\\([-a-zA-Z]+\\)" "xml-\\1") | |
| 55 ;(list "www-\\([-a-zA-Z]+\\)" "www-\\1") | |
| 56 ;(to "w3c-\\(xsl-wg\\|format\\|i18n-ig\\)" "w3c-xsl") | |
| 57 ;(to "w3t-\\([-a-zA-Z]+\\)" "w3t-\\1") | |
| 58 ;(to "team-\\([-a-zA-Z]+\\)" "w3-team-\\1") | |
| 59 ;(to "w3c-\\([-a-zA-Z]+\\)" "w3c-\\1") | |
| 60 ;(to "xml-\\([-a-zA-Z]+\\)" "w3c-\\1") | |
| 61 ;(to "member-\\([-a-zA-Z]+\\)" "w3-member-\\1") | |
| 62 ;(to "ercim-\\([-a-zA-Z]+\\)" "ercim-\\1") | |
| 63 ;(to "w3t" "w3t") | |
| 64 )) | |
| 65 | |
| 66 (setq w3c-lists2 | |
| 67 '((to "w3t-archive" "w3t-archive") | |
| 68 (to "w3c-archive" "w3c-archive"))) | |
| 69 | |
| 70 (setq xml-lists1 | |
| 71 '(;(to "xml-uri" "nsuri") | |
| 72 (to ".*editor.*" "xml-rec-comments") | |
| 73 (to "xml-dev" "xml") | |
| 74 (to "xsl-list" "xsl") | |
| 75 ;(to "[Xx]emacs[- ]beta" "xemacs") | |
| 76 (to "xmlschema-dev" "schema-dev") | |
| 77 (to "xproc-dev" "xproc-dev") | |
| 78 ;(to "xml-sig" "xml-python") | |
| 79 ;(to "xml-plenary" "xml-plenary") | |
| 80 )) | |
| 81 | |
| 82 (setq xml-lists2 | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
83 '((any "ietf-xml-mime\\.imc\\.org" "xml-mime") |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
84 (any "xml-mime\\.ietf\\.org" "xml-mime"))) |
| 39 | 85 |
| 86 (setq misc-list1 | |
| 87 '(;(from "w3t-\\([a-zA-Z]+\\)-request" "w3t-\\1") | |
| 88 ;(from "w3c-\\([a-zA-Z]+\\)-request" "w3c-\\1") | |
| 89 ;(from "xml-\\([a-zA-Z]+\\)-request" "xml-\\1") | |
| 90 ;(from "p.woolman" "nhs-xml") | |
| 91 (from "Cron Daemon" "cron") | |
| 92 (from ".*@mail.gumtree.com" "personal") | |
| 93 (from ".*@postman.storyworth.com" "storyworth") | |
| 94 ;(from "\\(Richard\\.Kirkham\\|rachel\\.johnson\\|maria\\.papadaki\\|marisol\\.leonen\\|sangeeta\\.tewar\\|abdullah\\.alshamsi\\|.*@buid\\.ac\\.ae\\)" "buid") | |
| 95 (to "www-tag" "tag") | |
| 96 ;(to "webarch@noreply.github.com" "tag") | |
| 97 ;(to "dashboard-hackers" "beagle") | |
| 98 ;(to "pellet-users" "pellet") | |
| 99 (to "tkinter-discuss" "tkinter") | |
| 100 ;(to "sdp-students" "sdp") | |
| 101 (to "fnlp-students" "fnlp") | |
| 102 ;(from "fox@tardis\\.ed\\.ac\\.uk\\|s1505551" "fnlp") | |
| 103 ;(to "anlp-students" "anlp") | |
| 104 ;(from "nbnotifications" "anlp") | |
| 105 ;(: split-on-whole-field "Subject" "Re: MSc Project 18.*" "msc18") | |
| 106 ;(: split-on-whole-field "Subject" ".*\\(FNLP\\|100782021\\).*" "fnlp") | |
| 107 ;(: split-on-whole-field "Subject" ".*SDP \\(MS .\\|final\\) evaluation" "sdpEval") | |
| 108 ;(: split-on-whole-field "Subject" ".*[[]SDP[]] \\(Your evaluation\\|Evaluation deadline\\).*" "sdpEval") | |
| 109 ;(: split-on-whole-field "Subject" ".*SDP.*" "sdp") | |
| 110 ;(: split-on-whole-field "Subject" ".*Welcome to ANLP, action needed.*" "anlp_github") | |
| 111 (: split-on-whole-field "Subject" ".*\\(ANLP\\|Accelerated Natural Language Processing\\).*" "anlp") | |
| 112 (from "ANLP on Piazza" "anlp") | |
| 113 ;(from "FNLP on Piazza" "fnlp") | |
| 114 (from "alopez\\|learn\\|scohen\\|eponti" "anlp") | |
| 115 (from "080202022-3SV1SEM2" "inf1-cg") | |
| 116 (from "INFR111252023-4SV1SEM1" "anlp") | |
| 117 (from "no-reply@piazza.com" "anlp") | |
| 118 (: split-on-whole-field "Subject" ".*Personal Tutor.*" "tutees22") | |
| 119 (: split-on-whole-field "Subject" ".*Course Selection.*" "tutees22") | |
| 120 ;(: split-on-whole-field "Subject" ".*Sutton Trust.*" "inf-recruit") | |
| 121 (: split-on-whole-field "Subject" "mycron .*" "cron") | |
| 122 ;(: split-on-whole-field "Subject" "INF1-Cg experiment.*" "cgx_2013") | |
| 123 (: split-on-whole-field "Subject" ".*[[]urn[]].*" "urn") | |
| 124 (from "\\(106300.457@compuserve.com\\|elizdrummondyoung@gmail.com\\|jcdavey12@btinternet.com\\|andrewdolan@btinternet.com\\|wandbamoyes@btinternet.com\\)" "albertus") | |
| 125 (to "corpus-admin" "corpora") | |
| 126 (: split-on-whole-field "Subject" ".*Albertus.*" "albertus") | |
| 127 (: split-on-whole-field "Subject" ".*\\[corpus-admin\\].*" "corpora") | |
| 128 ;(to ".*@\\(hst\\|hthompson\\|henry\\.thompson\\)\\.name" "personal") | |
| 129 (from "mikereape@.*" "mikereape") | |
| 130 (from "\\(.*@mumble\\.net\\|jar@\\.csail\\.mit\\.edu\\)" "jar") | |
| 131 (from ".*@coulters.io" "belford") | |
| 132 (from ".*@umega.co.uk" "belford") | |
| 133 (to ".*@umega.co.uk" "belford") | |
| 134 (: split-on-whole-field "Subject" ".*belford.*" "belford") | |
| 135 )) | |
| 136 | |
| 137 (setq quaker-list | |
| 138 '((to "quaker-\\(l\\|spectrum\\)" "quaker") | |
| 139 ;(to "quaker-b" "quaker-b") | |
| 140 ;(to "QuakerBYM" "quaker-b") | |
| 141 ;(from "quaker-spectrum-approval" "quaker") | |
| 142 )) | |
| 143 | |
| 144 (setq sms-list | |
| 145 '(;(from "s1513009@.*" "ug4_18");\\|s1536017\\(s1443062\\|s1679328 | |
| 146 ;(from "Y.Chen-258@.*" "msc_19") | |
| 147 ;(from "\\(s1795066\\|s1825415\\|A.M.Magalhaes\\|T.Makino\\|S.Li-93\\|M.Maggiolo\\|ashe\\|Y.Li-242\\|E.J.Martin\\|K.Lohse\\|D.Li-28\\|S.D.Martin-1\\|K.Chen-35\\|J.Norris-3\\|S.Li-80\\|Y.Liu-236\\|J.Chen-114\\|Q.Zeng-3\\|Y.Liu-244\\|P.Guo-1\\|s1582739\\|B.Lun\\|X.Li-143\\|F.Li-17\\|K.R.Lu\\|Z.Li-86\\)@.*" "tutees18") | |
| 148 (from "\\(s1895309\\|s1765180\\|s1764494\\|s1645474\\|s1953043\\|s1651774\\|s1732316\\|s1742667\\)@.*" "tutees20") | |
| 149 )) | |
| 150 | |
| 151 (defalias 'tut20 (read-kbd-macro | |
| 152 "C-x o C-s < RET C-s @ C-b C-x C-x M-w C-x b gnus SPC RET C-s \"tutees20 RET C-r \\\\) RET \\\\| C-y C-a ESC ESC : nil RET ESC C-x M-x ht- 3*<backspace> set- ht SPC RET C-x C-s C-x b RET C-x o")) | |
| 153 | |
| 154 ;;; groups only, comes _after_ split to pers-... for to: ht... | |
| 155 (setq misc-list2 | |
| 156 '(;(to "cogsci.general" "junk") | |
| 157 (from "anrdaemon@yandex.ru\\|gsenopu@gmail.com\\|pradeepan88@hotmail.com" "anr-doom") | |
| 158 ;(to "bp-people" "bp-people") | |
| 159 ;(to "ppelders" "ppelders") | |
| 160 ;(to "7vtw" "7vtw") | |
| 161 (to "\\(apps-review\\|uri-review\\|apps-discuss\\|discuss\\|architecture-discuss\\|appsdir\\|art\\)@[a-z.]*\\(ietf\\|iab\\).org" "ietf") | |
| 162 (to "urn@ietf.org" "urn") | |
| 163 (to "if-people" "if-people") | |
| 164 (to "maptask" "maptask") | |
| 165 ;(to "i18n-sig" "xml-python") | |
| 166 ;(to "spec-prod" "spec-prod") | |
| 167 ;(to "markup" "markup") | |
| 168 ;(to "system-notices" "w3c-sys-notes") | |
| 169 (to "[cC]ygwin" "cygwin") | |
| 170 ;(to "jde@sunsite.dk" "jde") | |
| 171 ;(to "jdee-users@lists.sourceforge.net" "jde") | |
| 172 (to "tagsoup-friends@yahoogroups.com" "tagsoup") | |
| 173 (to "screen-users@gnu.org" "screen") | |
| 174 (from "mailinglist@edinburghrc.co.uk" "erc") | |
| 175 (to "selenium-users" "selenium") | |
| 176 (to "python-list@python.org" "python") | |
| 177 ;(to "ding" "gnus") | |
| 178 ;(to "dssslist" "dsssl") | |
| 179 ;(to "TEI-L" "tei") | |
| 180 (to "\\(announcements\\|unicode\\)@.*[.]unicode[.]org" "unicode") | |
| 181 ;(to "squid-users@lists.squid-cache.org\\|squid-users@squid-cache.org" | |
| 182 ; "squid") | |
| 183 (to "exist-open" "exist") | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
184 (any "ilcc-\\([a-zA-Z]+\\)" "ilcc-\\1") |
| 39 | 185 (to "ilcc" "ilcc") |
| 186 (to ".*lecturers@inf.ed.ac.uk" "inf-teach") | |
| 187 (to "\\(aisyllabus\\|acstaff\\)" "inf-teach") | |
| 188 (to "\\(inf\\)?\\(pg\\|msc\\|teach\\|res\\|staff\\)\@inf\\(ormatics\\)?" | |
| 189 "inf-\\2" ) | |
| 190 ;(to "directors-of-studies" "inf-dos") | |
| 191 (to "common-crawl@googlegroups.com" "ccrawl") | |
| 192 ;(list "inkscape-user\\|openbox\\|ffmpeg-user" "misc-list") | |
| 193 )) | |
| 194 | |
| 195 (defconst ht-spam-res '("bfSPAM" "boSPAM" "edSPAM" "saSPAM" "slSPAM")) | |
| 196 | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
197 (defun log-good-sender (sres) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
198 (message "good sender %s with result %s" (get-from-gnus-addr) sres)) |
|
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
199 |
| 39 | 200 (setq nnmail-split-fancy |
| 201 '(| | |
| 202 (to "ht\\+d@inf\\.ed\\.ac\\.uk" "_diary") | |
| 203 (! | |
| 204 (lambda (sres) | |
| 205 (cond | |
| 206 ((or (equal (car sres) "notSPAM") | |
| 207 (white-spam t)) | |
| 208 ;; documentation is wrong, no recursion, | |
| 209 ;; so we do it ourselves :-( | |
| 210 (message "was %s, trying further" sres) | |
| 211 (setq sres (nnmail-split-it ht-compiled-split)) | |
| 212 (log-good-sender sres) | |
| 213 sres) | |
| 214 ((member (car sres) ht-spam-res) | |
| 215 sres) | |
| 216 (t ; shouldn't happen! | |
| 217 (message "Shouldn't happen in nnmail-split-fancy %s" sres) | |
| 218 sres)) | |
| 219 ) | |
| 220 (| (: split-on-whole-field "Subject" ".*=\\?UTF-8\\(\\?B\\\?\\|.*=[A-F][0-9]=\\).*\\?=.*" "slSPAM") | |
| 221 ("X-Bogosity" "Yes.*" | |
| 222 (| | |
| 223 (From ".*@.*ed\.ac\.uk" "edSPAM") ; NB From not from | |
| 224 ("X-Spam-Score" "0" "boSPAM") | |
| 225 "bfSPAM")) | |
| 226 (: split-on-whole-field "X-Spam-Level" "\\*\\*\\*\\*.*" | |
| 227 "saSPAM") | |
| 228 ("X-Spam-Status" "Yes.*" "saSPAM") | |
| 229 "notSPAM")))) | |
| 230 | |
| 231 (defun set-ht-compiled-split () | |
| 232 "update the mail splitting rules" | |
| 233 (interactive) | |
| 234 (setq ht-compiled-split | |
| 235 (let* ((month | |
| 236 (format-time-string "%Y-%m" (current-time))) | |
| 237 (now-group (concat "group-" month)) | |
| 238 (now-pers (concat "pers-" month))) | |
| 239 `(| | |
| 240 (: split-on-whole-field "Subject" "testing" "junk") | |
| 241 (: ad-spam "adverts") | |
| 242 ;;; ("Content-Type" content-spam "gnSPAM") | |
| 243 ;;; ("Content-Transfer-Encoding" encoding-spam "gnSPAM") | |
| 244 ;;; (: split-on-whole-subj 'subject-spam "gnSPAM") | |
| 245 ;; Special to people who use Yahoo | |
| 246 ;;; ("X-YahooFilteredBulk" ".*" "gnSPAM") | |
| 247 ;;; (from author-spam "gnSPAM") | |
| 248 ;; A subject with no letters is SPAM | |
| 249 ;;; (: split-on-whole-subj "^[^a-zA-Z]+$" "gnSPAM") | |
| 250 ;; It would be cool to check the | |
| 251 ;; date and toss it if it is "old" | |
| 252 (to "\\(w3[ct]\\|www\\|team\\|member\\|public\\|ercim\\)[^ ]*@.*" | |
| 253 (| ,@w3c-lists1 | |
| 254 (to "ht\\|henry\\|\\(h\\.?\\)?thompson?" ,now-pers) | |
| 255 ,@w3c-lists2 | |
| 256 (to "x.*@.*" (| ,@xml-lists1 | |
| 257 (to "ht\\|henry\\|\\(h\\.?\\)?thompson?" ,now-pers) | |
| 258 ,@xml-lists2 | |
| 259 ,now-group)))) | |
| 260 (to "x.*@.*" (| ,@xml-lists1 | |
| 261 (to "ht\\|henry\\|\\(h\\.?\\)?thompson?" ,now-pers) | |
| 262 ,@xml-lists2)) | |
| 263 ,@misc-list1 | |
| 264 (to "ht\\|henry\\|\\(h\\.?\\)?thompson?" | |
| 265 (| (from ".*@sms.ed.ac.uk" (| | |
| 266 ,@sms-list | |
| 267 ,now-pers)) | |
| 268 | |
| 269 ,now-pers)) | |
| 270 (to "quaker.*" (| | |
| 271 ,@quaker-list | |
| 272 ,now-group)) | |
| 273 ,@misc-list2 | |
| 274 ,now-group | |
| 275 )))) | |
| 276 | |
| 277 (defun quaker-sig-maybe () | |
| 278 (save-excursion | |
| 279 (goto-char (point-max)) | |
| 280 (search-backward "\n-- \n") | |
| 281 (when (looking-at "\n-- \n Henry") | |
| 282 (forward-char 5) | |
| 283 (kill-entire-line 6) | |
| 284 (insert-file "/afs/inf.ed.ac.uk/user/h/ht/.quaker-sig")))) | |
| 285 | |
| 286 (defun straight-to-diary () | |
| 287 (save-excursion | |
| 288 (gnus-group-jump-to-group "nnml+ht:_diary") | |
| 289 (message "s1 %s" (get-text-property (point) 'gnus-group)) | |
| 290 (gnus-group-select-group) | |
| 291 (while (gnus-summary-first-unread-article) | |
| 292 (let ((sco (get-buffer "*Shell Command Output*"))) | |
| 293 (if sco | |
| 294 (kill-buffer sco))) | |
| 61 | 295 (gnus-edit-and-move-to-diary_1 nil t)) |
| 39 | 296 (gnus-summary-exit) |
| 297 ) | |
| 298 ) | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
299 |
| 61 | 300 (add-hook 'gnus-after-getting-new-news-hook |
| 301 (lambda () | |
| 302 (if (member "_diary" ht-gnus-just-read) | |
| 303 (straight-to-diary)))) | |
| 304 | |
|
43
eee08de75336
try to do better at where news/mail/init stuff is handled,
Henry S. Thompson <ht@inf.ed.ac.uk>
parents:
39
diff
changeset
|
305 (provide 'mail-from-inf) |