From: morioka <morioka>
Date: Wed, 30 Sep 1998 19:21:33 +0000 (+0000)
Subject: (gnus-article-prepare): Use content of `gnus-current-headers' as
X-Git-Tag: chao-gnus-6_9_2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a850fbf4e54f7b7543525a22d7edf327552f9d6f;p=elisp%2Fgnus.git-

(gnus-article-prepare): Use content of `gnus-current-headers' as
mime-message-structure.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7c455a2..e32915e 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2097,7 +2097,9 @@ If ALL-HEADERS is non-nil, no headers are hidden."
 	      (let ((method
 		     (if gnus-show-mime
 			 (progn
-			   (mime-parse-buffer)
+			   (setq mime-message-structure gnus-current-headers)
+			   (mime-entity-set-buffer-internal
+			    mime-message-structure (current-buffer))
 			   (if (or (not gnus-strict-mime)
 				   (mime-fetch-field "MIME-Version"))
 			       gnus-article-display-method-for-mime