Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ac45dc..4b2628f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-11-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mml.el (mml-preview): Bind message-this-is-mail if it is mail.
+
 2002-11-13  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
        * gnus.el (gnus-summary-line-format): Document %C.

diff --git a/lisp/mml.el b/lisp/mml.el
index e66e63a..7e035a2 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1014,6 +1014,7 @@ If RAW, don't highlight the article."
   (save-excursion
     (let* ((buf (current-buffer))
           (message-options message-options)
+          (message-this-is-mail (message-mail-p))
           (message-this-is-news (message-news-p))
           (message-posting-charset (or (gnus-setup-posting-charset
                                         (save-restriction