From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Dec 2008 04:06:28 +0000 (+0000)
Subject: (pmail-cease-edit): Put `>' before `From ' lines in message.
X-Git-Tag: emacs-pretest-23.0.90~892
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08f66232d50de2e193c4c9f293018e415a23302c;p=emacs.git

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

diff --git a/lisp/mail/pmailedit.el b/lisp/mail/pmailedit.el
index 2fd400d2b75..d26a7b681c9 100644
--- a/lisp/mail/pmailedit.el
+++ b/lisp/mail/pmailedit.el
@@ -107,6 +107,12 @@ This functions runs the normal hook `pmail-edit-mode-hook'.
       (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