From: morioka <morioka>
Date: Tue, 26 Jan 1999 17:49:55 +0000 (+0000)
Subject: fixed.
X-Git-Tag: semi-1_13-199901261900~3
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fsemi.git;a=commitdiff_plain;h=b0c4b7e6e7264776463307ddf91633b10538fa84

fixed.
---

diff --git a/mime-play.el b/mime-play.el
index 29dd266..e940ad3 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -144,6 +144,28 @@
 	    (cons dest mime-acting-situation-example-list))
       )))
 
+
+;;; @ content decoder
+;;;
+
+(defun mime-preview-play-current-entity (&optional ignore-examples mode)
+  "Play current entity.
+It decodes current entity to call internal or external method.  The
+method is selected from variable `mime-acting-condition'.
+If IGNORE-EXAMPLES (C-u prefix) is specified, this function ignores
+`mime-acting-situation-example-list'.
+If MODE is specified, play as it.  Default MODE is \"play\"."
+  (interactive "P")
+  (let ((entity (get-text-property (point) 'mime-view-entity)))
+    (if entity
+	(let ((situation (list (cons 'mode (or mode "play")))))
+	  (if ignore-examples
+	      (setq situation
+		    (cons (cons 'ignore-examples ignore-examples)
+			  situation)))
+	  (mime-play-entity entity situation)
+	  ))))
+
 (defun mime-sort-situation (situation)
   (sort situation
 	#'(lambda (a b)