Mercurial > emacs

changeset 101629:caac907da88d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-cease-edit): Add additional quotes to quoted From lines.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 29 Jan 2009 03:02:39 +0000
parents a00762725924
children 064248de0e1b
files lisp/mail/rmailedit.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailedit.el	Thu Jan 29 03:01:44 2009 +0000
+++ b/lisp/mail/rmailedit.el	Thu Jan 29 03:02:39 2009 +0000
@@ -112,9 +112,10 @@
   ;; 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