From 14cf92d04d16561bb45cf26ae604b28880940a58 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 15 Jun 1998 06:13:32 +0000 Subject: [PATCH] (mime-file-content-type-alist): Renamed from `mime-file-type-regexp-type-subtype-alist'. --- mime-play.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) 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) -- 1.7.10.4