((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."))))
(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
(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))))