X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-play.el;h=b1636418f9476eb7dd2f3fa6aa50c9ffc59692da;hb=e01169749634b3ac24d675f9edee3087d6c666c8;hp=480bad5436d44259cde0733429c36c5220228050;hpb=4950b395b89ae08c8e9a9b140622ca5b60c1ed7c;p=elisp%2Fsemi.git

diff --git a/mime-play.el b/mime-play.el
index 480bad5..b163641 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -338,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).
@@ -369,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