From: morioka <morioka>
Date: Thu, 21 Jan 1999 19:30:38 +0000 (+0000)
Subject: (mime-play-entity): Change interface.
X-Git-Tag: semi-1_13_0~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=67b30cde5cd2ff8f610fdd94088b4eca5ba17407;p=elisp%2Fsemi.git

(mime-play-entity): Change interface.
---

diff --git a/mime-play.el b/mime-play.el
index 9f008ce..f412dd9 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -124,7 +124,7 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
   (interactive "P")
   (let ((entity (get-text-property (point) 'mime-view-entity)))
     (if entity
-	(mime-play-entity entity (or mode "play") nil ignore-examples)
+	(mime-play-entity entity nil (or mode "play") ignore-examples)
       )))
 
 (defun mime-sort-situation (situation)
@@ -193,8 +193,8 @@ If MODE is specified, play as it.  Default MODE is \"play\"."
     (cons match example)
     ))
 
-(defun mime-play-entity (entity &optional mode situation ignore-examples
-				ignored-method)
+(defun mime-play-entity (entity &optional situation mode
+				ignore-examples ignored-method)
   "Play entity specified by ENTITY.
 It decodes the entity to call internal or external method.  The method
 is selected from variable `mime-acting-condition'.  If MODE is
@@ -470,11 +470,12 @@ SUBTYPE is symbol to indicate subtype of media-type.")
 	(setq rest (cdr rest))))
     (if type
 	(mime-play-entity
-	 entity nil
+	 entity
 	 (put-alist 'type type
 		    (put-alist 'subtype subtype
 			       (del-alist 'method
 					  (copy-alist situation))))
+	 nil
 	 (cdr (assq 'ignore-examples situation))
 	 'mime-detect-content)
       ))