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