[Emacs-diffs] emacs/lisp/mail rmailedit.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/29 03:02:39

Modified files:
        lisp/mail      : rmailedit.el 

Log message:
        (rmail-cease-edit): Add additional quotes to quoted From lines.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailedit.el?cvsroot=emacs&r1=1.44&r2=1.45

Patches:
Index: rmailedit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailedit.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- rmailedit.el        23 Jan 2009 03:34:00 -0000      1.44
+++ rmailedit.el        29 Jan 2009 03:02:39 -0000      1.45
@@ -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