From: morioka <morioka>
Date: Wed, 24 Jun 1998 03:48:26 +0000 (+0000)
Subject: (gnus-article-display-mime-message): Don't `save-excursion'.
X-Git-Tag: gnus-6_6-tomo-199811302358~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1ed9e78a7c6af1dcfce2682bed842e855efb065e;p=elisp%2Fgnus.git-

(gnus-article-display-mime-message): Don't `save-excursion'.
(gnus-article-prepare): Use `mime-fetch-field' instead of
`mime-entity-fetch-field'.
---

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)))