mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(rmail-forward): Delete trailing blank lines.

Browse Source
This commit is contained in:
Karl Heuer 1995-12-13 04:59:53 +00:00
parent c08076084e
commit 4d4826ab5c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/mail/rmail.el
View File

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