`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 (file)
--- 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 (file)
--- 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