diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-12-13 04:59:53 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-12-13 04:59:53 +0000 |
| commit | 0b2521a0928f81b638f938048e5b6d8a5cbf3103 (patch) | |
| tree | 5fd9eb71ecb9fda6669d919b3a16b5fe4a6411a9 | |
| parent | cccc89ebf9ba0289e7cfa306c459f9c93720261a (diff) | |
| download | emacs-0b2521a0928f81b638f938048e5b6d8a5cbf3103.tar.gz | |
(rmail-forward): Delete trailing blank lines.
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
1 files changed, 5 insertions, 0 deletions
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)))))) |