# HG changeset patch
# User Henry S Thompson <ht@inf.ed.ac.uk>
# Date 1702376930 0
# Node ID d9297098442b6a3f0894875c4012d685837a2b94
# Parent  f593eacb57b07ab59c231b41f2c5a44ba6851aeb
get mhmcc right?

diff -r f593eacb57b0 -r d9297098442b mail-from-m.el
--- a/mail-from-m.el	Tue Dec 12 10:28:33 2023 +0000
+++ b/mail-from-m.el	Tue Dec 12 10:28:50 2023 +0000
@@ -71,15 +71,15 @@
     (cond ((to-quaker-p)
 	   (goto-char (point-min))
 	   (cond ((search-forward "\nFrom: ht@home.hst.name" nil t)
+					;; will fail on mhmcc
 		  (backward-char 13)
 		  (delete-char 4)
-		  (insert "rsof")))))
-      
-    (goto-char (point-max))
-    (search-backward "\n-- \n")
-    (when (looking-at "\n-- \nHenry")
-      (forward-char 5)
-      (kill-entire-line 5)
-      (insert-file "~/.quaker-sig"))))
+		  (insert "rsof")
+		  (goto-char (point-max))
+		  (search-backward "\n-- \n")
+		  (when (looking-at "\n-- \nHenry")
+		    (forward-char 5)
+		    (kill-entire-line 5)
+		    (insert-file "~/.quaker-sig"))))))))
 
 (provide 'mail-from-m)