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

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

forwarded message; the signature goes after.
parent c21eb13d
......@@ -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))))))
......
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