Commit b3a51d1d authored by Chong Yidong's avatar Chong Yidong
Browse files

(rmail-cease-edit): Add additional quotes to quoted From lines.

parent ace0f471
......@@ -112,9 +112,10 @@ This functions runs the normal hook `rmail-edit-mode-hook'.
;; Disguise any "From " lines so they don't start a new message.
(save-excursion
(goto-char (point-min))
(while (search-forward "\nFrom " nil t)
(while (re-search-forward "^>*From " nil t)
(beginning-of-line)
(insert ">")))
(insert ">")
(forward-line)))
;; Make sure buffer ends with a blank line
;; so as not to run this message together with the following one.
(save-excursion
......
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