From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 13 Dec 1995 04:59:53 +0000 (+0000)
Subject: (rmail-forward): Delete trailing blank lines.
X-Git-Tag: emacs-19.34~2136
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d4826ab5c67a7c27842d65486d5801de9a8a35c;p=emacs.git

(rmail-forward): Delete trailing blank lines.
---

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))))))