(defun wl-message-display-type-property (display-type prop)
(plist-get (get display-type 'wl-message-display-type) prop))
-(defun wl-message-mime-analysys-p (display-type &optional header-or-body)
+(defun wl-message-mime-analysis-p (display-type &optional header-or-body)
(let ((mode (wl-message-display-type-property display-type :mime)))
(case header-or-body
(header
(defun wl-message-display-all-header-p (display-type)
(eq (wl-message-display-type-property display-type :header) 'all))
+(defun wl-message-buffer-display-type (&optional message-buffer)
+ (if message-buffer
+ (with-current-buffer message-buffer
+ wl-message-buffer-cur-display-type)
+ wl-message-buffer-cur-display-type))
(defun wl-message-redisplay (folder number display-type &optional force-reload)
(let* ((default-mime-charset wl-mime-charset)
(setq wl-message-buffer-require-all-header
(wl-message-display-all-header-p display-type))
(prog1
- (if (wl-message-mime-analysys-p display-type)
+ (if (wl-message-mime-analysis-p display-type)
(elmo-mime-message-display folder number
(current-buffer)
(wl-message-get-original-buffer)
unread
(wl-message-define-keymap))
(let* ((elmo-mime-display-header-analysis
- (wl-message-mime-analysys-p display-type 'header))
+ (wl-message-mime-analysis-p display-type 'header))
(wl-highlight-x-face-function
(and elmo-mime-display-header-analysis
wl-highlight-x-face-function)))