Synch up with main trunk, and prepare the release 2.12.0.

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

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 6527365..1606ee0 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -70,11 +70,9 @@ has Non-nil value\)"
             ((wl-region-exists-p)
              (wl-mime-preview-follow-current-region))
             ((not (wl-message-mime-analysis-p
-                   (get-text-property (point-min)
-                                      'wl-message-display-type)))
+                   (wl-message-buffer-display-type)))
              (wl-mime-preview-follow-no-mime
-              (get-text-property (point-min)
-                                 'wl-message-display-type)))
+              (wl-message-buffer-display-type)))
             (t
              (mime-preview-follow-current-entity)))))
       (error "No message."))))
@@ -103,7 +101,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)
@@ -283,7 +281,7 @@ It calls following-method selected from variable
       (when wl-highlight-body-too
        (wl-highlight-body))
       (run-hooks 'wl-draft-preview-message-hook))
-    (make-local-variable 'kill-buffer-hook)
+    (make-local-hook 'kill-buffer-hook)
     (add-hook 'kill-buffer-hook
              (lambda ()
                (when (get-buffer-window
@@ -293,7 +291,8 @@ It calls following-method selected from variable
                  (delete-window))
                (when (get-buffer wl-draft-preview-attributes-buffer-name)
                  (kill-buffer (get-buffer
-                               wl-draft-preview-attributes-buffer-name)))))
+                               wl-draft-preview-attributes-buffer-name))))
+             nil t)
     (if (not wl-draft-preview-attributes)
        (message (concat "Recipients: "
                         (cdr (assq 'recipients attribute-list))))