# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 819830674 0
# Node ID 3c51aa417e32850d6e6db3fb88eed1cdfdff9469
# Parent  467bc73e8734081e402c8f1491f46203833dee05
(rmail-forward): Quote lines with `- ' when necessary.

diff -r 467bc73e8734 -r 3c51aa417e32 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun Dec 24 16:03:05 1995 +0000
+++ b/lisp/mail/rmail.el	Sun Dec 24 18:44:34 1995 +0000
@@ -2251,7 +2251,15 @@
 	     (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)