From: morioka <morioka>
Date: Mon, 15 Jun 1998 06:13:32 +0000 (+0000)
Subject: (mime-file-content-type-alist): Renamed from
X-Git-Tag: semi-1_6_0~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=14cf92d04d16561bb45cf26ae604b28880940a58;p=elisp%2Fsemi.git

(mime-file-content-type-alist): Renamed from
`mime-file-type-regexp-type-subtype-alist'.
---

diff --git a/mime-play.el b/mime-play.el
index c3c1979..45ff40d 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -405,8 +405,15 @@ window.")
 ;;; @ file detection
 ;;;
 
-(defvar mime-file-type-regexp-type-subtype-alist
-  '(("JPEG" image jpeg)))
+(defvar mime-file-content-type-alist
+  '(("JPEG"	image jpeg)
+    ("GIF"	image gif)
+    )
+  "*Alist of \"file\" output patterns vs. corresponding media-types.
+Each element looks like (REGEXP TYPE SUBTYPE).
+REGEXP is pattern for \"file\" command output.
+TYPE is symbol to indicate primary type of media-type.
+SUBTYPE is symbol to indicate subtype of media-type.")
 
 (defun mime-method-to-detect (entity situation)
   (let ((beg (mime-entity-point-min entity))
@@ -428,7 +435,7 @@ window.")
 	  (call-process "file" nil t nil filename)
 	  (goto-char (point-min))
 	  (if (search-forward (concat filename ": ") nil t)
-	      (let ((rest mime-file-type-regexp-type-subtype-alist))
+	      (let ((rest mime-file-content-type-alist))
 		(while (not (let ((cell (car rest)))
 			      (if (looking-at (car cell))
 				  (setq type (nth 1 cell)