From: morioka <morioka>
Date: Mon, 27 Apr 1998 19:40:19 +0000 (+0000)
Subject: (mime-raw-play-entity): Get all available acting-situations; display
X-Git-Tag: semi-1_3_3~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e2153721db0210793aebb1cf3457fae1cce3a0f5;p=elisp%2Fsemi.git

(mime-raw-play-entity): Get all available acting-situations; display
menu of methods to select acting-situation to activate.
---

diff --git a/mime-play.el b/mime-play.el
index 978e6de..e314ce4 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -89,7 +89,19 @@ specified, play as it.  Default MODE is \"play\"."
       (if mode
 	  (setq cal (cons (cons 'mode mode) cal))
 	)
-      (setq ret (ctree-match-calist mime-acting-condition cal))
+      (setq ret (ctree-find-calist mime-acting-condition cal 'all))
+      (if (cdr ret)
+	  (setq ret (select-menu-alist
+		     "Methods"
+		     (mapcar (function
+			      (lambda (situation)
+				(cons
+				 (format "%s"
+					 (cdr (assq 'method situation)))
+				 situation)))
+			     ret)))
+	(setq ret (car ret))
+	)
       (setq method (cdr (assq 'method ret)))
       (cond ((and (symbolp method)
 		  (fboundp method))
@@ -262,16 +274,18 @@ window.")
 	 (filename
           (if (and name (not (string-equal name "")))
 	      (expand-file-name name
-				(call-interactively
-				 (function
-				  (lambda (dir)
-				    (interactive "DDirectory: ")
-				    dir))))
-	    (call-interactively
-	     (function
-	      (lambda (file)
-		(interactive "FFilename: ")
-		(expand-file-name file))))))
+				(save-window-excursion
+				  (call-interactively
+				   (function
+				    (lambda (dir)
+				      (interactive "DDirectory: ")
+				      dir)))))
+	    (save-window-excursion
+	      (call-interactively
+	       (function
+		(lambda (file)
+		  (interactive "FFilename: ")
+		  (expand-file-name file)))))))
 	 )
     (if (file-exists-p filename)
         (or (yes-or-no-p (format "File %s exists. Save anyway? " filename))