Mercurial > hg > xemacs
diff mail-from-m.el @ 40:d9297098442b
get mhmcc right?
| author | Henry S Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Tue, 12 Dec 2023 10:28:50 +0000 |
| parents | cb9b76219c55 |
| children | eee08de75336 |
line wrap: on
line diff
--- 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)