Commit c8a428c4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-forward): Quote lines with `- ' when necessary.

parent e63574d7
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment