* 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 (file)
--- 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 (file)
--- 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.