From: morioka <morioka>
Date: Fri, 5 Jun 1998 06:43:17 +0000 (+0000)
Subject: (mime-view-display-entity): Call body-presentation-method to display
X-Git-Tag: semi-1_5_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f362b657a215832be13521aad8ce7083950bebd7;p=elisp%2Fsemi.git

(mime-view-display-entity): Call body-presentation-method to display
multipart if it is function.
---

diff --git a/mime-view.el b/mime-view.el
index eee3635..d735ea5 100644
--- 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 ()