Mercurial > emacs
changeset 13724:36e3cc8cb103
(rmail-forward): Delete trailing blank lines.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 13 Dec 1995 04:59:53 +0000 |
| parents | 4e170419e83c |
| children | 9729af46fe60 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Wed Dec 13 03:29:28 1995 +0000 +++ b/lisp/mail/rmail.el Wed Dec 13 04:59:53 1995 +0000 @@ -2253,6 +2253,11 @@ (forward-line 1) (insert "------- Start of forwarded message -------\n") (insert-buffer-substring forward-buffer) + (let ((end (point))) + (skip-chars-backward "\n") + (if (< (point) end) + (forward-char 1)) + (delete-region (point) end)) (insert "------- End of forwarded message -------\n") (push-mark))))))