* mml.el (mml-preview): Bind gnus-original-article-buffer because

article-decode-group-name uses it.  Bind gnus-article-prepare-hook
because bbdb may use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 393a9da..d909612 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-07  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mml.el (mml-preview): Bind gnus-original-article-buffer because
+       article-decode-group-name uses it.  Bind gnus-article-prepare-hook
+       because bbdb may use it.
+
 2002-01-07  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
        * nneething.el (nneething-request-article): When a non-text file

diff --git a/lisp/mml.el b/lisp/mml.el
index 725756b..b51223d 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -941,7 +941,8 @@ If RAW, don't highlight the article."
            (erase-buffer)
            (mm-disable-multibyte)
            (insert s)))
-      (let ((gnus-newsgroup-charset (car message-posting-charset)))
+      (let ((gnus-newsgroup-charset (car message-posting-charset))
+           gnus-article-prepare-hook gnus-original-article-buffer)
        (run-hooks 'gnus-article-decode-hook)
        (let ((gnus-newsgroup-name "dummy"))
          (gnus-article-prepare-display))))