mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-forward): Put the "end" line right after the

Browse source 
forwarded message; the signature goes after.
This commit is contained in:
Richard M. Stallman 1996-03-29 22:40:05 +00:00
parent c21eb13de8
commit 41c51dcba1
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/rmail.el
View file

@ -2259,18 +2259,20 @@ see the documentation of `rmail-resend'."
(insert "------- Start of forwarded message -------\n")
;; Quote lines with `- ' if they start with `-'.
(let ((beg (point)) end)
(setq end (point-marker))
(set-marker-insertion-type end t)
(insert-buffer-substring forward-buffer)
(goto-char beg)
(while (re-search-forward "^-" nil t)
(beginning-of-line)
(insert "- ")
(forward-line 1))
(goto-char (point-max)))
(let ((end (point)))
(goto-char end)
(skip-chars-backward "\n")
(if (< (point) end)
(forward-char 1))
(delete-region (point) end))
(delete-region (point) end)
(set-marker end nil))
(insert "------- End of forwarded message -------\n")
(push-mark))))))