Mercurial > emacs

diff lisp/mail/rmail.el @ 8875:36c2657d03bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-forward): Insert separator before and after message.
author Richard M. Stallman <rms@gnu.org>
date Sun, 18 Sep 1994 09:09:43 +0000
parents f3567d21b4e9
children d9c10eb46ce9
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Sun Sep 18 08:52:32 1994 +0000
+++ b/lisp/mail/rmail.el	Sun Sep 18 09:09:43 1994 +0000
@@ -2016,7 +2016,13 @@
 	    (search-forward-regexp
 	     (concat "^" (regexp-quote mail-header-separator) "$"))
 	    (forward-line 1)
-	    (insert-buffer forward-buffer))))))
+	    (insert "------- Start of forwarded message -------\n")
+	    (insert-buffer forward-buffer)
+	    (forward-line -1)
+	    (exchange-point-and-mark)
+	    (insert "------- End of forwarded message -------\n")
+	    (forward-line -1)
+            (exchange-point-and-mark))))))
 
 (defun rmail-resend (address &optional from comment mail-alias-file)
   "Resend current message to ADDRESSES.