diff options
Diffstat (limited to 'lisp/mail/rmailedit.el')
| -rw-r--r-- | lisp/mail/rmailedit.el | 5 |
1 files 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 |