mml-quote the replied message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2940bde..0a12f1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-06-02 12:04:26  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml.el (mml-quote-region): Correct the regexp.
+       * gnus-msg.el (gnus-summary-reply): mml-quote it.
+
 2000-06-02 11:57:15  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-forward): Insert raw text.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index b84a57f..e094a4d 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -650,6 +650,10 @@ automatically."
       (gnus-summary-select-article)
       (set-buffer (gnus-copy-article-buffer))
       (gnus-msg-treat-broken-reply-to)
+      (save-restriction
+       (message-narrow-to-head)
+       (goto-char (point-max)))
+      (mml-quote-region (point) (point-max))
       (message-reply nil wide)
       (when yank
        (gnus-inews-yank-articles yank)))))

diff --git a/lisp/mml.el b/lisp/mml.el
index 7cbf381..d4a04b6 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -753,7 +753,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
       (goto-char (point-min))
       ;; Quote parts.
       (while (re-search-forward
-             "<#/?!*\\(multipart\\|part\\|external\\|mml\\)" nil t)
+             "<#!*/?\\(multipart\\|part\\|external\\|mml\\)" nil t)
        ;; Insert ! after the #.
        (goto-char (+ (match-beginning 0) 2))
        (insert "!")))))