(mime-view-display-entity): Call body-presentation-method to display

[elisp/semi.git] / mime-view.el

diff --git a/mime-view.el b/mime-view.el
index eee3635..d735ea5 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -808,8 +808,10 @@ The compressed face will be piped to this command.")
       (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 ()