# HG changeset patch
# User Henry S Thompson <ht@inf.ed.ac.uk>
# Date 1706119094 0
# Node ID bcb51a32799d9b4e08764c0affba35b743b46263
# Parent  ff32fbf9485ce01f1b99d044a3c2129411f93895
Group of N mailing list

diff -r ff32fbf9485c -r bcb51a32799d mail-from-m.el
--- 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)