;;; Code:
;;
+(eval-when-compile (require 'cl))
(require 'wl-vars)
(require 'wl-highlight)
(defun wl-message-display-all-header-p (display-type)
(eq (wl-message-display-type-property display-type :header) 'all))
+(defun wl-message-display-no-merge-p (display-type)
+ (eq (wl-message-display-type-property display-type :mime) 'no-merge))
+
(defun wl-message-buffer-display-type (&optional message-buffer)
(if message-buffer
(with-current-buffer message-buffer
(setq redisplay t))
(when (or force-reload redisplay)
(condition-case err
- (save-excursion
- (set-buffer hit)
+ (with-current-buffer hit
(when (or force-reload
(null entity)
(not (elmo-mime-entity-display-p
entity
(if (wl-message-mime-analysis-p display-type)
'mime
- 'as-is))))
+ 'as-is)))
+ (if (wl-message-display-no-merge-p display-type)
+ (elmo-mime-entity-reassembled-p entity)
+ (elmo-mime-entity-fragment-p entity)))
(setq entity (elmo-message-mime-entity
folder
number
(wl-message-get-original-buffer)
+ (and wl-message-auto-reassemble-message/partial
+ (not (wl-message-display-no-merge-p
+ display-type)))
force-reload
unread
(not (wl-message-mime-analysis-p display-type)))))
&optional summary charset)
(let* ((summary (or summary (get-buffer wl-summary-buffer-name)))
(num number))
- (when (and count
+ (when (and (> count 0)
(wl-message-buffer-prefetch-p folder))
(unless (wl-message-buffer-prefetch-p folder number)
(setq num
&optional summary charset)
(let* ((summary (or summary (get-buffer wl-summary-buffer-name)))
next)
- (when (and count
+ (when (and (> count 0)
(wl-message-buffer-prefetch-p folder))
(setq next (wl-message-buffer-prefetch-get-next folder number summary))
(when next