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

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       08/12/23 04:06:28

Modified files:
        lisp/mail      : pmailedit.el 

Log message:
        (pmail-cease-edit): Put `>' before `From ' lines in message.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailedit.el?cvsroot=emacs&r1=1.11&r2=1.12

Patches:
Index: pmailedit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/pmailedit.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- pmailedit.el        23 Dec 2008 04:03:35 -0000      1.11
+++ pmailedit.el        23 Dec 2008 04:06:28 -0000      1.12
@@ -107,6 +107,12 @@
       (save-excursion
        (set-buffer pmail-summary-buffer)
        (pmail-summary-enable)))
+  ;; Disguise any "From " lines so they don't start a new message.
+  (save-excursion
+    (goto-char (point-min))
+    (while (search-forward "\nFrom " nil t)
+      (beginning-of-line)
+      (insert ">")))
   ;; Make sure buffer ends with a blank line
   ;; so as not to run this message together with the following one.
   (save-excursion