Mercurial > hg > xemacs

comparison mail-from-m.el @ 54:bcb51a32799d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Group of N mailing list
author Henry S Thompson <ht@inf.ed.ac.uk>
date Wed, 24 Jan 2024 17:58:14 +0000
parents f3ab63e5c39f
children 3dd34fa466c2
comparison
equal deleted inserted replaced
53:ff32fbf9485c 54:bcb51a32799d
34 (to "[cC]ygwin" "cygwin") 34 (to "[cC]ygwin" "cygwin")
35 (from "noreply@mrooms.net" "nayler") 35 (from "noreply@mrooms.net" "nayler")
36 (to "ht@rsof.hst.name" ,(concat "quaker-" year)) 36 (to "ht@rsof.hst.name" ,(concat "quaker-" year))
37 (to "Wardenship@lists.quaker.eu.org" "wardens") 37 (to "Wardenship@lists.quaker.eu.org" "wardens")
38 (to "mhmcc@rsof.hst.name" ,(concat "mhmcc-" year)) 38 (to "mhmcc@rsof.hst.name" ,(concat "mhmcc-" year))
39 (from "\\(gillian.einstein@gmail.com\\|brian.cantwell.smith@gmail.com\\|gguzeldere@yahoo.com\\|jim.brink@gmail.com\\|rgwinther@gmail.com\\|shockema@gmail.com\\|j.jun.luo@gmail.com\\)" "GoN")
39 ("Envelope-to" "mhmcc@rsof.hst.name" 40 ("Envelope-to" "mhmcc@rsof.hst.name"
40 (| (from "mhmcc@rsof.hst.name" junk) 41 (| (from "mhmcc@rsof.hst.name" junk)
41 ,(concat "mhmcc-" year))) 42 ,(concat "mhmcc-" year)))
42 (to "mfw@rsof.hst.name" "7vt") 43 (to "mfw@rsof.hst.name" "7vt")
43 (to "zphdaily" (concat "pers-" month)) 44 (to "zphdaily" (concat "pers-" month))
91 (defun quaker-sig-maybe () 92 (defun quaker-sig-maybe ()
92 (save-excursion 93 (save-excursion
93 (goto-char (point-min)) 94 (goto-char (point-min))
94 (cond ((to-quaker-p) 95 (cond ((to-quaker-p)
95 (goto-char (point-min)) 96 (goto-char (point-min))
96 (cond ((search-forward "\nFrom: ht@home.hst.name" nil t) 97 (cond ((re-search-forward "^From: .*ht@home.hst.name" nil t)
97 ;; will fail on mhmcc 98 ;; will fail on mhmcc
98 (backward-char 13) 99 (backward-char 13)
99 (delete-char 4) 100 (delete-char 4)
100 (insert "rsof") 101 (insert "rsof")
101 (goto-char (point-max)) 102 (goto-char (point-max))