From 9d132c38df32da22713fcd2eb35a00fb232e9b4c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 8 Mar 2001 23:47:36 +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 9e3ef37..3d25fb8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 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-08 Katsumi Yamaoka + * 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. -- 1.7.10.4