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): Quote lines with `- ' when necessary.

Browse source
This commit is contained in:
Richard M. Stallman 1995-12-24 18:44:34 +00:00
parent e63574d79b
commit c8a428c4e3
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/mail/rmail.el
View file

@ -2251,7 +2251,15 @@ see the documentation of `rmail-resend'."
(concat "^" (regexp-quote mail-header-separator) "$"))
(forward-line 1)
(insert "------- Start of forwarded message -------\n")
(insert-buffer-substring forward-buffer)
;; Quote lines with `- ' if they start with `-'.
(let ((beg (point)) end)
(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)))
(skip-chars-backward "\n")
(if (< (point) end)