diff options
| author | Richard M. Stallman | 1994-09-18 09:09:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-18 09:09:43 +0000 |
| commit | 8bdb9f4af94abf27fe163a07f8bef254f2b61cb4 (patch) | |
| tree | a8cd74154ddb9871d2c35f3b6948dadec27241c1 | |
| parent | eaccd4d857910c2a459876be38c4d1d0ba1a1372 (diff) | |
| download | emacs-8bdb9f4af94abf27fe163a07f8bef254f2b61cb4.tar.gz emacs-8bdb9f4af94abf27fe163a07f8bef254f2b61cb4.zip | |
(rmail-forward): Insert separator before and after message.
| -rw-r--r-- | lisp/mail/rmail.el | 8 |
1 files changed, 7 insertions, 1 deletions
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'." | |||
| 2016 | (search-forward-regexp | 2016 | (search-forward-regexp |
| 2017 | (concat "^" (regexp-quote mail-header-separator) "$")) | 2017 | (concat "^" (regexp-quote mail-header-separator) "$")) |
| 2018 | (forward-line 1) | 2018 | (forward-line 1) |
| 2019 | (insert-buffer forward-buffer)))))) | 2019 | (insert "------- Start of forwarded message -------\n") |
| 2020 | (insert-buffer forward-buffer) | ||
| 2021 | (forward-line -1) | ||
| 2022 | (exchange-point-and-mark) | ||
| 2023 | (insert "------- End of forwarded message -------\n") | ||
| 2024 | (forward-line -1) | ||
| 2025 | (exchange-point-and-mark)))))) | ||
| 2020 | 2026 | ||
| 2021 | (defun rmail-resend (address &optional from comment mail-alias-file) | 2027 | (defun rmail-resend (address &optional from comment mail-alias-file) |
| 2022 | "Resend current message to ADDRESSES. | 2028 | "Resend current message to ADDRESSES. |