From: morioka <morioka>
Date: Sat, 4 Jul 1998 07:42:58 +0000 (+0000)
Subject: (mime-detect-content): Fixed.
X-Git-Tag: semi-1_8_2_9~9
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fsemi.git;a=commitdiff_plain;h=d8c4489ad5ff4b83b9ca7d518b3b63223b59b363

(mime-detect-content): Fixed.
---

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