From: morioka <morioka>
Date: Sun, 16 Mar 1997 01:02:03 +0000 (+0000)
Subject: `mime-view-default-showing-Content-Type-list' ->
X-Git-Tag: Hokutetsu-Ishikawa-new~110
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=12d2cc7bdbb2fc31c100bfdd54ae5e251241b2c1;p=elisp%2Fsemi.git

`mime-view-default-showing-Content-Type-list' ->
`mime-view-visible-media-type-list'.
---

diff --git a/mime-image.el b/mime-image.el
index 601a69d..5a46be6 100644
--- a/mime-image.el
+++ b/mime-image.el
@@ -9,7 +9,7 @@
 ;; Created: 1995/12/15
 ;;	Renamed: 1997/2/21 from tm-image.el
 ;; Version:
-;;	$Id: mime-image.el,v 0.8 1997-03-15 21:10:43 morioka Exp $
+;;	$Id: mime-image.el,v 0.9 1997-03-16 01:02:03 morioka Exp $
 
 ;; Keywords: image, picture, X-Face, MIME, multimedia, mail, news
 
@@ -122,7 +122,7 @@
 		   (set-alist 'mime-view-image-converter-alist
 			      ctype format)
 		   (add-to-list
-		    'mime-view-default-showing-Content-Type-list
+		    'mime-view-visible-media-type-list
 		    ctype)
 		   )
 	       ))))
@@ -212,8 +212,7 @@
 	   (function mime-preview/filter-for-application/postscript))
 
 (if (featurep 'gif)
-    (add-to-list 'mime-view-default-showing-Content-Type-list
-		 "application/postscript")
+    (add-to-list 'mime-view-visible-media-type-list "application/postscript")
   )
 
 
diff --git a/mime-view.el b/mime-view.el
index 453b4e3..121780f 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;	Renamed: 1994/8/31 from tm-body.el
 ;;	Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.25 $
+;; Version: $Revision: 0.26 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.25 1997-03-15 23:52:58 morioka Exp $")
+  "$Id: mime-view.el,v 0.26 1997-03-16 01:00:55 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -137,7 +137,7 @@
 (defvar mime-view-childrens-header-showing-Content-Type-list
   '("message/rfc822" "message/news"))
 
-(defvar mime-view-default-showing-Content-Type-list
+(defvar mime-view-visible-media-type-list
   '("text/plain" nil "text/richtext" "text/enriched"
     "text/x-latex" "application/x-latex"
     "message/delivery-status"
@@ -212,7 +212,7 @@ Each elements are regexp of field-name. [mime-view.el]")
 	       (setq ccinfo (mime-article/rcnum-to-cinfo rcnum cinfo))
 	       ))
 	)
-    (and (member ctype mime-view-default-showing-Content-Type-list)
+    (and (member ctype mime-view-visible-media-type-list)
 	 (if (string-equal ctype "application/octet-stream")
 	     (progn
 	       (or ccinfo