diff options
| author | Richard M. Stallman | 1993-09-15 22:59:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-09-15 22:59:12 +0000 |
| commit | 0f0a85b310ae2016c91153fd69e6fdff8b5e72a1 (patch) | |
| tree | 3c42f9170428132d4a0e53fe73bb92862b91afa8 /lisp | |
| parent | 1f111018045d392253c3682648193a62c8501906 (diff) | |
| download | emacs-0f0a85b310ae2016c91153fd69e6fdff8b5e72a1.tar.gz emacs-0f0a85b310ae2016c91153fd69e6fdff8b5e72a1.zip | |
(rmail-forward): Insert the text right after the header separator.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 9ab9c86f11f..096723725d6 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -1829,7 +1829,8 @@ see the documentation of `rmail-resend'." | |||
| 1829 | (current-buffer) | 1829 | (current-buffer) |
| 1830 | rmail-current-message))) | 1830 | rmail-current-message))) |
| 1831 | (save-excursion | 1831 | (save-excursion |
| 1832 | (goto-char (point-max)) | 1832 | ;; Insert after header separator--before signature if any. |
| 1833 | (search-forward-regexp (concat "^" mail-header-separator)) | ||
| 1833 | (forward-line 1) | 1834 | (forward-line 1) |
| 1834 | (insert-buffer forward-buffer)))))) | 1835 | (insert-buffer forward-buffer)))))) |
| 1835 | 1836 | ||