Mercurial > hg > xemacs

diff 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
line wrap: on
line diff
--- a/mail-from-m.el	Wed Jan 24 17:57:41 2024 +0000
+++ b/mail-from-m.el	Wed Jan 24 17:58:14 2024 +0000
@@ -36,6 +36,7 @@
 		      (to "ht@rsof.hst.name" ,(concat "quaker-" year))
 		      (to "Wardenship@lists.quaker.eu.org" "wardens")
 		      (to "mhmcc@rsof.hst.name" ,(concat "mhmcc-" year))
+		      (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")
 		      ("Envelope-to" "mhmcc@rsof.hst.name"
 		       (| (from "mhmcc@rsof.hst.name" junk)
 			  ,(concat "mhmcc-" year)))
@@ -93,7 +94,7 @@
     (goto-char (point-min))
     (cond ((to-quaker-p)
 	   (goto-char (point-min))
-	   (cond ((search-forward "\nFrom: ht@home.hst.name" nil t)
+	   (cond ((re-search-forward "^From: .*ht@home.hst.name" nil t)
 					;; will fail on mhmcc
 		  (backward-char 13)
 		  (delete-char 4)