From d8c4489ad5ff4b83b9ca7d518b3b63223b59b363 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 4 Jul 1998 07:42:58 +0000 Subject: [PATCH] (mime-detect-content): Fixed. --- mime-play.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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 -- 1.7.10.4