From 468a0644e170bcaa236b3819951b9276ed426766 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 29 Jul 1999 03:08:41 +0000
Subject: [PATCH] (mime-play-entity): Get media-type from situation instead of
 entity; display prompt and call `mime-save-content' if
 method is not found. (mime-detect-content): Call
 `mime-play-entity' even if media-type specification is not
 found in `mime-magic-type-alist'.

---
 mime-play.el |   24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/mime-play.el b/mime-play.el
index 0c13092..5cf0aac 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -326,7 +326,11 @@ specified, play as it.  Default MODE is \"play\"."
           ;;  )
 	  (t
 	   (mime-show-echo-buffer "No method are specified for %s\n"
-				  (mime-entity-type/subtype entity))
+				  (mime-type/subtype-string
+				   (cdr (assq 'type situation))
+				   (cdr (assq 'subtype situation))))
+	   (if (y-or-n-p "Do you want to save current entity to disk?")
+	       (mime-save-content entity situation))
 	   ))
     ))
 
@@ -501,16 +505,14 @@ SUBTYPE is symbol to indicate subtype of media-type.")
 			  )
 		      t)))
 	(setq rest (cdr rest))))
-    (if type
-	(mime-play-entity
-	 entity
-	 (put-alist 'type type
-		    (put-alist 'subtype subtype
-			       (del-alist 'method
-					  (copy-alist situation))))
-	 'mime-detect-content)
-      ))
-  )
+    (setq situation (del-alist 'method (copy-alist situation)))
+    (mime-play-entity entity
+		      (if type
+			  (put-alist 'type type
+				     (put-alist 'subtype subtype
+						situation))
+			situation)
+		      'mime-detect-content)))
 
 
 ;;; @ mail/news message
-- 
1.7.10.4