multipart if it is function.
(put-text-property nb ne 'mime-view-entity entity)
(goto-char ne)
(if children
(put-text-property nb ne 'mime-view-entity entity)
(goto-char ne)
(if children
- (mime-preview-multipart/mixed entity situation)
- )
+ (if (functionp body-presentation-method)
+ (funcall body-presentation-method entity situation)
+ (mime-preview-multipart/mixed entity situation)
+ ))
)))
(defun mime-raw-get-uu-filename ()
)))
(defun mime-raw-get-uu-filename ()