From 08f66232d50de2e193c4c9f293018e415a23302c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 23 Dec 2008 04:06:28 +0000 Subject: [PATCH] (pmail-cease-edit): Put `>' before `From ' lines in message. --- lisp/mail/pmailedit.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/mail/pmailedit.el b/lisp/mail/pmailedit.el index 2fd400d2b75..d26a7b681c9 100644 --- a/lisp/mail/pmailedit.el +++ b/lisp/mail/pmailedit.el @@ -107,6 +107,12 @@ This functions runs the normal hook `pmail-edit-mode-hook'. (save-excursion (set-buffer pmail-summary-buffer) (pmail-summary-enable))) + ;; Disguise any "From " lines so they don't start a new message. + (save-excursion + (goto-char (point-min)) + (while (search-forward "\nFrom " nil t) + (beginning-of-line) + (insert ">"))) ;; Make sure buffer ends with a blank line ;; so as not to run this message together with the following one. (save-excursion -- 2.39.2