Mercurial > emacs
changeset 14916:9d170829f227
(rmail-forward): Put the "end" line right after the
forwarded message; the signature goes after.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 29 Mar 1996 22:40:05 +0000 |
| parents | 5a4b28f19b75 |
| children | f353b7b88418 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Mar 29 17:47:01 1996 +0000 +++ b/lisp/mail/rmail.el Fri Mar 29 22:40:05 1996 +0000 @@ -2259,18 +2259,20 @@ (insert "------- Start of forwarded message -------\n") ;; Quote lines with `- ' if they start with `-'. (let ((beg (point)) end) + (setq end (point-marker)) + (set-marker-insertion-type end t) (insert-buffer-substring forward-buffer) (goto-char beg) (while (re-search-forward "^-" nil t) (beginning-of-line) (insert "- ") (forward-line 1)) - (goto-char (point-max))) - (let ((end (point))) + (goto-char end) (skip-chars-backward "\n") (if (< (point) end) (forward-char 1)) - (delete-region (point) end)) + (delete-region (point) end) + (set-marker end nil)) (insert "------- End of forwarded message -------\n") (push-mark))))))