From 8bdb9f4af94abf27fe163a07f8bef254f2b61cb4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 18 Sep 1994 09:09:43 +0000 Subject: [PATCH] (rmail-forward): Insert separator before and after message. --- lisp/mail/rmail.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 73903f10203..617fc3da36b 100644 --- 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. -- 2.39.5