[Emacs-diffs] /srv/bzr/emacs/trunk r102508: 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.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102508
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2010-11-25 05:09:25 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mml.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-25 01:13:37 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-25 05:09:25 +0000
@@ -1,5 +1,9 @@
 2010-11-25  Katsumi Yamaoka  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/gnus/mml.el'
--- a/lisp/gnus/mml.el  2010-10-22 04:30:27 +0000
+++ b/lisp/gnus/mml.el  2010-11-25 05:09:25 +0000
@@ -1509,7 +1509,8 @@
              (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