From 1ed9e78a7c6af1dcfce2682bed842e855efb065e Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 24 Jun 1998 03:48:26 +0000 Subject: [PATCH] (gnus-article-display-mime-message): Don't `save-excursion'. (gnus-article-prepare): Use `mime-fetch-field' instead of `mime-entity-fetch-field'. --- lisp/gnus-art.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index d7070ef..6cc3b15 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1967,11 +1967,9 @@ commands: (set-buffer gnus-summary-buffer) default-mime-charset)) ) - (save-excursion - (mime-display-message mime-message-structure - gnus-article-buffer nil gnus-article-mode-map) - - )) + (mime-display-message mime-message-structure + gnus-article-buffer nil gnus-article-mode-map) + ) (run-hooks 'gnus-mime-article-prepare-hook) ) @@ -2097,8 +2095,7 @@ If ALL-HEADERS is non-nil, no headers are hidden." (progn (mime-parse-buffer) (if (or (not gnus-strict-mime) - (mime-entity-fetch-field - mime-message-structure "MIME-Version")) + (mime-fetch-field "MIME-Version")) gnus-article-display-method-for-mime gnus-article-display-method-for-encoded-word)) gnus-article-display-method-for-traditional))) -- 1.7.10.4