From b0c4b7e6e7264776463307ddf91633b10538fa84 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 26 Jan 1999 17:49:55 +0000 Subject: [PATCH] fixed. --- mime-play.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) 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) -- 1.7.10.4