From 0b2521a0928f81b638f938048e5b6d8a5cbf3103 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 13 Dec 1995 04:59:53 +0000 Subject: (rmail-forward): Delete trailing blank lines. --- lisp/mail/rmail.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 633960f913e..03d9a52b689 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2253,6 +2253,11 @@ see the documentation of `rmail-resend'." (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)))))) -- cgit v1.2.1