mml.el (mml-preview): Make sure to bind gnus-displaying-mime to nil, assuming that...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 482a683..dc2736a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2010-11-25  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * mml.el (mml-preview): Make sure to bind gnus-displaying-mime to nil,
+       assuming that article displaying or another mml-preview may be
+       interrupted for an error or for the like.
+
        * shr.el (shr-get-background): Fix argument name.
 
 2010-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>

diff --git a/lisp/mml.el b/lisp/mml.el
index 7314675..7dc6b76 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1509,7 +1509,8 @@ or the `pop-to-buffer' function."
              (mm-disable-multibyte)
              (insert s)))
        (let ((gnus-newsgroup-charset (car message-posting-charset))
-             gnus-article-prepare-hook gnus-original-article-buffer)
+             gnus-article-prepare-hook gnus-original-article-buffer
+             gnus-displaying-mime)
          (run-hooks 'gnus-article-decode-hook)
          (let ((gnus-newsgroup-name "dummy")
                (gnus-newsrc-hashtb (or gnus-newsrc-hashtb