(rmail-forward): Insert separator before and after message.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 73903f102038873b22b4e754f9875685fae59f25..617fc3da36b930e6e0e6c04c485d56fa98feadaf 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2016,7 +2016,13 @@ see the documentation of `rmail-resend'."
            (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.