# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779879383 0
# Node ID 36c2657d03bbb9b2fc4fa66fc4e6f7272813fcb6
# Parent  716969785d083580fb60007f04c0f3b156ce25b8
(rmail-forward): Insert separator before and after message.

diff -r 716969785d08 -r 36c2657d03bb lisp/mail/rmail.el
--- 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.