From: yamaoka <yamaoka>
Date: Thu, 8 Mar 2001 23:47:26 +0000 (+0000)
Subject: * gnus-art.el (gnus-article-prepare-display): Setup MIME entity even if
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3b44a879e081164ece93b01456b2bb2e225e2528;p=elisp%2Fgnus.git-

* gnus-art.el (gnus-article-prepare-display): Setup MIME entity even if
 `gnus-show-mime' is nil.
---

diff --git a/ChangeLog b/ChangeLog
index df83f1e..a5dc626 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-08  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-art.el (gnus-article-prepare-display): Setup MIME
+	entity even if `gnus-show-mime' is nil.
+
 2001-03-06  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/nnshimbun.el (nnshimbun-retrieve-url): Check if
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d3e7531..8e3b3d3 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3230,20 +3230,17 @@ If ALL-HEADERS is non-nil, no headers are hidden."
   (setq gnus-article-wash-types nil)
   (gnus-run-hooks 'gnus-tmp-internal-hook)
   ;; Display message.
-  (let (mime-display-header-hook mime-display-text/plain-hook)
-    (funcall (if gnus-show-mime
-		 (progn
-		   (setq mime-message-structure gnus-current-headers)
-		   (mime-buffer-entity-set-buffer-internal
-		    mime-message-structure
-		    gnus-original-article-buffer)
-		   (mime-entity-set-representation-type-internal
-		    mime-message-structure 'mime-buffer-entity)
-		   (luna-send mime-message-structure
-			      'initialize-instance
-			      mime-message-structure)
-		   gnus-article-display-method-for-mime)
-	       gnus-article-display-method-for-traditional)))
+  (setq mime-message-structure gnus-current-headers)
+  (mime-buffer-entity-set-buffer-internal mime-message-structure
+					  gnus-original-article-buffer)
+  (mime-entity-set-representation-type-internal mime-message-structure
+						'mime-buffer-entity)
+  (luna-send mime-message-structure 'initialize-instance
+	     mime-message-structure)
+  (if gnus-show-mime
+      (let (mime-display-header-hook mime-display-text/plain-hook)
+	(funcall gnus-article-display-method-for-mime))
+    (funcall gnus-article-display-method-for-traditional))
   ;; Associate this article with the current summary buffer.
   (setq gnus-article-current-summary gnus-summary-buffer)
   ;; Call the treatment functions.