# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1290661765 0
# Node ID 13061011e6ac3cf9dc60b65cf82a164ac17c672a
# Parent  aa580ff3975aa2e548579a2a8c4e6dc8b03f8e6b
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.

diff -r aa580ff3975a -r 13061011e6ac lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Nov 24 23:43:56 2010 -0500
+++ b/lisp/gnus/ChangeLog	Thu Nov 25 05:09:25 2010 +0000
@@ -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 -r aa580ff3975a -r 13061011e6ac lisp/gnus/mml.el
--- a/lisp/gnus/mml.el	Wed Nov 24 23:43:56 2010 -0500
+++ b/lisp/gnus/mml.el	Thu Nov 25 05:09:25 2010 +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