diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-01-29 03:02:39 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-01-29 03:02:39 +0000 |
| commit | 06f68280298185da0910368161a4c659d9b50e42 (patch) | |
| tree | c22e53085eac9700e62a1cffc7aa31271f9a4d56 /lisp/mail/rmailedit.el | |
| parent | 3e969e49046eaedd50b23a14c29529d0d99d7a9c (diff) | |
| download | emacs-06f68280298185da0910368161a4c659d9b50e42.tar.gz | |
(rmail-cease-edit): Add additional quotes to quoted From lines.
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 |