From: yamaoka <yamaoka>
Date: Thu, 8 Mar 2001 23:47:36 +0000 (+0000)
Subject: * gnus-art.el (gnus-article-prepare-display): Setup MIME entity even if
X-Git-Tag: t-gnus-6_15_0-10-quimby~20
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9d132c38df32da22713fcd2eb35a00fb232e9b4c;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 9e3ef37..3d25fb8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 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-08  Katsumi Yamaoka <yamaoka@jpl.org>
+
 	* lisp/dgnushack.el: Load gnus-clfns.el after `load-path' is
 	adjusted.
 
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index d3a62d8..8928a7d 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3526,20 +3526,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.