From 3b44a879e081164ece93b01456b2bb2e225e2528 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 8 Mar 2001 23:47:26 +0000 Subject: [PATCH] * gnus-art.el (gnus-article-prepare-display): Setup MIME entity even if `gnus-show-mime' is nil. --- ChangeLog | 5 +++++ lisp/gnus-art.el | 25 +++++++++++-------------- 2 files changed, 16 insertions(+), 14 deletions(-) diff --git a/ChangeLog b/ChangeLog index df83f1e..a5dc626 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-03-08 Katsumi Yamaoka + + * lisp/gnus-art.el (gnus-article-prepare-display): Setup MIME + entity even if `gnus-show-mime' is nil. + 2001-03-06 Katsumi Yamaoka * 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. -- 1.7.10.4