From: morioka <morioka>
Date: Mon, 6 Jul 1998 05:08:04 +0000 (+0000)
Subject: (mime-preview-play-current-entity): Fix problem when `mode' is omitted
X-Git-Tag: semi-1_8_2_90~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=af292f7e6c29ef0e40d61569eda8afb08edf934a;p=elisp%2Fsemi.git

(mime-preview-play-current-entity): Fix problem when `mode' is omitted
with non-interactive mode (maybe for button dispatcher).
---

diff --git a/mime-play.el b/mime-play.el
index b163641..221920f 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -73,14 +73,14 @@
 It decodes current entity to call internal or external method.  The
 method is selected from variable `mime-acting-condition'.
 If MODE is specified, play as it.  Default MODE is \"play\"."
-  (interactive (list "play"))
+  (interactive)
   (let ((entity (get-text-property (point) 'mime-view-entity)))
     (if entity
 	(let ((the-buf (current-buffer))
 	      (raw-buffer (mime-entity-buffer entity)))
 	  (setq mime-preview-after-decoded-position (point))
 	  (set-buffer raw-buffer)
-	  (mime-raw-play-entity entity mode)
+	  (mime-raw-play-entity entity (or mode "play"))
 	  (when (eq (current-buffer) raw-buffer)
 	    (set-buffer the-buf)
 	    (goto-char mime-preview-after-decoded-position)