# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1233198159 0
# Node ID caac907da88d06784ea7a034d63d01814245c2cf
# Parent  a00762725924861957f394da9e07f166459cc48d
(rmail-cease-edit): Add additional quotes to quoted From lines.

diff -r a00762725924 -r caac907da88d lisp/mail/rmailedit.el
--- 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