1 files changed, 9 insertions, 1 deletions

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 91ad7d783ff..2e2880872df 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -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)