From: ichikawa <ichikawa>
Date: Sun, 6 Dec 1998 09:17:01 +0000 (+0000)
Subject: lisp/message.el: Do not use mml module.
X-Git-Tag: pgnus-ichikawa-199812061900
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=080c9aa5b01db87a1a3d710e66d3698d2ad85508;p=elisp%2Fgnus.git-

lisp/message.el: Do not use mml module.
---

diff --git a/ChangeLog b/ChangeLog
index 10e10d3..d34e6e1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1998-12-06  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
+	* lisp/message.el (message-cite-original-without-signature): Do
+	not use mml-quote-region.
+	
+	* lisp/message.el (message-cite-original): Ditto.
+	
 	* lisp/gnus.el (gnus-version-number): Update to 6.10.049.
 
 	* Sync up with Pterodactyl Gnus 0.64.
diff --git a/lisp/message.el b/lisp/message.el
index 9752ad7..c6e0758 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2055,7 +2055,6 @@ prefix, and don't delete any headers."
 	   (if (listp message-indent-citation-function)
 	       message-indent-citation-function
 	     (list message-indent-citation-function)))))
-    (mml-quote-region start end)
     (goto-char end)
     (when (re-search-backward "^-- $" start t)
       ;; Also peel off any blank lines before the signature.
@@ -2085,7 +2084,6 @@ prefix, and don't delete any headers."
 	     (if (listp message-indent-citation-function)
 		 message-indent-citation-function
 	       (list message-indent-citation-function)))))
-      (mml-quote-region start end)
       (goto-char start)
       (while functions
 	(funcall (pop functions)))