# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 818830793 0
# Node ID 36e3cc8cb103f20a92156c7b8308b0394f659789
# Parent  4e170419e83cf05c0542abf48cdeb9a7578af32c
(rmail-forward): Delete trailing blank lines.

diff -r 4e170419e83c -r 36e3cc8cb103 lisp/mail/rmail.el
--- 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))))))