From b3a51d1d2050881e0f92947db95c461a68fc43d4 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 29 Jan 2009 03:02:39 +0000 Subject: [PATCH] (rmail-cease-edit): Add additional quotes to quoted From lines. --- lisp/mail/rmailedit.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index 79091200eee..1c0d63b5aef 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el @@ -112,9 +112,10 @@ This functions runs the normal hook `rmail-edit-mode-hook'. ;; Disguise any "From " lines so they don't start a new message. (save-excursion (goto-char (point-min)) - (while (search-forward "\nFrom " nil t) + (while (re-search-forward "^>*From " nil t) (beginning-of-line) - (insert ">"))) + (insert ">") + (forward-line))) ;; Make sure buffer ends with a blank line ;; so as not to run this message together with the following one. (save-excursion -- 2.39.5