changeset 8875:36c2657d03bb

(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 716969785d08
children 1f90adde8d6c
files lisp/mail/rmail.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
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.