Mercurial > emacs
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.