From a850fbf4e54f7b7543525a22d7edf327552f9d6f Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 30 Sep 1998 19:21:33 +0000 Subject: [PATCH] (gnus-article-prepare): Use content of `gnus-current-headers' as mime-message-structure. --- lisp/gnus-art.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 1.7.10.4