From: morioka <morioka>
Date: Sun, 5 Jul 1998 15:19:20 +0000 (+0000)
Subject: Sync up with semi-1_8_2_9.
X-Git-Tag: remi-1_8_1~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ef815aa7d2cbdc5b8217203273aa26968fdc6893;p=elisp%2Fsemi.git

Sync up with semi-1_8_2_9.
---

diff --git a/mime-play.el b/mime-play.el
index 344b9da..b163641 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -206,13 +206,12 @@ specified, play as it.  Default MODE is \"play\"."
 	(let ((method (cdr (assoc 'method situation)))
 	      (name (mime-entity-safe-filename entity)))
 	  (setq name
-		(if name
+		(if (and name (not (string= name "")))
 		    (expand-file-name name mime-temp-directory)
 		  (make-temp-name
 		   (expand-file-name "EMI" mime-temp-directory))
 		  ))
-	  (mime-write-decoded-region (mime-entity-body-start entity) end
-				     name (cdr (assq 'encoding situation)))
+          (mime-write-entity-content entity name)
 	  (message "External method is starting...")
 	  (let ((process
 		 (let ((command
@@ -339,8 +338,9 @@ window.")
 ;;;
 
 (defvar mime-file-content-type-alist
-  '(("JPEG"	image jpeg)
-    ("GIF"	image gif)
+  '(("JPEG"		image jpeg)
+    ("GIF"		image gif)
+    ("Standard MIDI"	audio midi)
     )
   "*Alist of \"file\" output patterns vs. corresponding media-types.
 Each element looks like (REGEXP TYPE SUBTYPE).
@@ -370,10 +370,12 @@ SUBTYPE is symbol to indicate subtype of media-type.")
 	  (if (search-forward (concat filename ": ") nil t)
 	      (let ((rest mime-file-content-type-alist))
 		(while (not (let ((cell (car rest)))
-			      (if (looking-at (car cell))
-				  (setq type (nth 1 cell)
-					subtype (nth 2 cell))
-				)))
+			      (if cell
+				  (if (looking-at (car cell))
+				      (setq type (nth 1 cell)
+					    subtype (nth 2 cell))
+				    )
+				t)))
 		  (setq rest (cdr rest))))))
 	(if type
 	    (mime-raw-play-entity