(wl-mime-preview-follow-no-mime): Call

[elisp/wanderlust.git] / wl / wl-mime.el

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 6527365..4f3ea6a 100644 (file)
--- 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)