Mercurial > hg > xemacs

comparison mail-from-inf.el @ 82:e75e61ad9ae1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
students
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Thu, 02 Jul 2026 10:09:04 +0100
parents 597af5ec2bbb
children
comparison
equal deleted inserted replaced
81:0020df783e55 82:e75e61ad9ae1
143 143
144 (setq sms-list 144 (setq sms-list
145 '(;(from "s1513009@.*" "ug4_18");\\|s1536017\\(s1443062\\|s1679328 145 '(;(from "s1513009@.*" "ug4_18");\\|s1536017\\(s1443062\\|s1679328
146 ;(from "Y.Chen-258@.*" "msc_19") 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") 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") 148 ;(from "\\(s1895309\\|s1765180\\|s1764494\\|s1645474\\|s1953043\\|s1651774\\|s1732316\\|s1742667\\)@.*" "tutees20")
149 (from "T\\.Suwanpimolkul\\|Narmin\\|Gahramanova\\|N\.Gahramanova-1\\|\\|Bin\\|Hu\\|B\\.Hu-21" "msc_26")
149 )) 150 ))
150 151
151 (defalias 'tut20 (read-kbd-macro 152 (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 "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
259 ,now-group)))) 260 ,now-group))))
260 (to "x.*@.*" (| ,@xml-lists1 261 (to "x.*@.*" (| ,@xml-lists1
261 (to "ht\\|henry\\|\\(h\\.?\\)?thompson?" ,now-pers) 262 (to "ht\\|henry\\|\\(h\\.?\\)?thompson?" ,now-pers)
262 ,@xml-lists2)) 263 ,@xml-lists2))
263 ,@misc-list1 264 ,@misc-list1
265 ,@sms-list
264 (to "ht\\|henry\\|\\(h\\.?\\)?thompson?" 266 (to "ht\\|henry\\|\\(h\\.?\\)?thompson?"
265 (| (from ".*@sms.ed.ac.uk" (| 267 ,now-pers)
266 ,@sms-list
267 ,now-pers))
268
269 ,now-pers))
270 (to "quaker.*" (| 268 (to "quaker.*" (|
271 ,@quaker-list 269 ,@quaker-list
272 ,now-group)) 270 ,now-group))
273 ,@misc-list2 271 ,@misc-list2
274 ,now-group 272 ,now-group