Mercurial > emacs

changeset 100662:818439524f9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pmail-cease-edit): Put `>' before `From ' lines in message.
author Richard M. Stallman <rms@gnu.org>
date Tue, 23 Dec 2008 04:06:28 +0000
parents af9f2d22b21d
children baacf563d823
files lisp/mail/pmailedit.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/pmailedit.el	Tue Dec 23 04:03:35 2008 +0000
+++ b/lisp/mail/pmailedit.el	Tue Dec 23 04:06:28 2008 +0000
@@ -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