Mercurial > hg > xemacs

comparison mail-from-m.el @ 40:d9297098442b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
39:f593eacb57b0 40:d9297098442b
69 (save-excursion 69 (save-excursion
70 (goto-char (point-min)) 70 (goto-char (point-min))
71 (cond ((to-quaker-p) 71 (cond ((to-quaker-p)
72 (goto-char (point-min)) 72 (goto-char (point-min))
73 (cond ((search-forward "\nFrom: ht@home.hst.name" nil t) 73 (cond ((search-forward "\nFrom: ht@home.hst.name" nil t)
74 ;; will fail on mhmcc
74 (backward-char 13) 75 (backward-char 13)
75 (delete-char 4) 76 (delete-char 4)
76 (insert "rsof"))))) 77 (insert "rsof")
77 78 (goto-char (point-max))
78 (goto-char (point-max)) 79 (search-backward "\n-- \n")
79 (search-backward "\n-- \n") 80 (when (looking-at "\n-- \nHenry")
80 (when (looking-at "\n-- \nHenry") 81 (forward-char 5)
81 (forward-char 5) 82 (kill-entire-line 5)
82 (kill-entire-line 5) 83 (insert-file "~/.quaker-sig"))))))))
83 (insert-file "~/.quaker-sig"))))
84 84
85 (provide 'mail-from-m) 85 (provide 'mail-from-m)