From: morioka <morioka>
Date: Mon, 27 Apr 1998 20:51:09 +0000 (+0000)
Subject: (mime-user-acting-condition): New variable.
X-Git-Tag: semi-1_3_3~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=657c853eb5d614d3cad9367d48e4797109169c43;p=elisp%2Fsemi.git

(mime-user-acting-condition): New variable.
(mime-raw-play-entity): Refer it.
---

diff --git a/mime-play.el b/mime-play.el
index e314ce4..127e144 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -32,6 +32,8 @@
 
 (eval-when-compile (require 'mime-text))
 
+(defvar mime-user-acting-condition nil)
+
   
 ;;; @ content decoder
 ;;;
@@ -89,19 +91,28 @@ specified, play as it.  Default MODE is \"play\"."
       (if mode
 	  (setq cal (cons (cons 'mode mode) 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 ret
+	    (or (ctree-match-calist mime-user-acting-condition cal)
+		cal))
+      (setq ret
+	    (or (ctree-find-calist mime-acting-condition ret 'all)
+		(ctree-find-calist mime-acting-condition cal 'all)
+		))
+      (cond ((cdr ret)
+	     (setq ret (select-menu-alist
+			"Methods"
+			(mapcar (function
+				 (lambda (situation)
+				   (cons
+				    (format "%s"
+					    (cdr (assq 'method situation)))
+				    situation)))
+				ret)))
+	     (ctree-set-calist-strictly 'mime-user-acting-condition ret)
+	     )
+	    (t
+	     (setq ret (car ret))
+	     ))
       (setq method (cdr (assq 'method ret)))
       (cond ((and (symbolp method)
 		  (fboundp method))