From: hmurata <hmurata>
Date: Sat, 11 Dec 2004 16:02:19 +0000 (+0000)
Subject: (wl-mime-preview-follow-no-mime): Call
X-Git-Tag: wl-2_12-root~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=569e2a56b4496d688c0f3c078e8b3e21650b43bc;p=elisp%2Fwanderlust.git

(wl-mime-preview-follow-no-mime): Call
`wl-message-mime-analysis-p' with argument `header'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 11bb7c2..1d2c061 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-11  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-mime.el (wl-mime-preview-follow-no-mime): Call
+	`wl-message-mime-analysis-p' with argument `header'.
+
 2004-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-mime.el (wl-draft-yank-current-message-entity): 
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 6527365..4f3ea6a 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -103,7 +103,7 @@ It calls following-method selected from variable
       (goto-char (point-min))
       ;; Insert all headers.
       (let ((elmo-mime-display-header-analysis
-	     (wl-message-mime-analysis-p display-type)))
+	     (wl-message-mime-analysis-p display-type 'header)))
 	(elmo-mime-insert-sorted-header entity))
       (let ((f (cdr (assq mode mime-preview-following-method-alist))))
 	(if (functionp f)