From: tomo <tomo>
Date: Thu, 2 Mar 2000 05:50:43 +0000 (+0000)
Subject: (gnus-article-prepare): Use `mime-entity-fetch-field' instead of
X-Git-Tag: chaos-1_13_1~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=48f9824471a9b0a2bd82569928ae671ab2088aa1;p=elisp%2Fgnus.git-

(gnus-article-prepare): Use `mime-entity-fetch-field' instead of
`mime-fetch-field'.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index c4d1fc1..42abbb0 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2115,7 +2115,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 				      'initialize-instance
 				      mime-message-structure)
                            (if (or (not gnus-strict-mime)
-				   (mime-fetch-field "MIME-Version"))
+				   (mime-entity-fetch-field
+				    mime-message-structure "MIME-Version"))
 			       gnus-article-display-method-for-mime
 			     gnus-article-display-method-for-encoded-word))
 		       gnus-article-display-method-for-traditional)))