Delete unnecessary "[mime-edit.el]" from DOC-strings.

[elisp/semi.git] / mime-image.el

diff --git a/mime-image.el b/mime-image.el
index 601a69d..1a7f937 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.11 1997-05-27 03:11:47 morioka Exp $
 
 ;; Keywords: image, picture, X-Face, MIME, multimedia, mail, news
 
@@ -118,11 +118,11 @@
                 (progn
                   (set-alist 'mime-view-content-filter-alist
                              ctype
-                             (function mime-preview/filter-for-image))
+                             (function mime-view-filter-for-image))
                   (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)
                   )
               ))))
@@ -135,6 +135,7 @@
          ("image/x-xpixmap"            . xpm)
          ("image/x-pic"                . pic)
          ("image/x-mag"                . mag)
+         ("image/png"                  . png)
          ))
 
 (defvar mime-view-ps-to-gif-command "pstogif")
@@ -144,7 +145,7 @@
 ;;;
 ;;    (for XEmacs 19.12 or later)
 
-(defun mime-preview/filter-for-image (ctype params encoding)
+(defun mime-view-filter-for-image (ctype params encoding)
   (let ((beg (point-min))
        (end (point-max)))
     (remove-text-properties beg end '(face nil))
@@ -186,7 +187,7 @@
 ;;;
 ;;    (for XEmacs 19.14 or later)
 
-(defun mime-preview/filter-for-application/postscript (ctype params encoding)
+(defun mime-view-filter-for-application/postscript (ctype params encoding)
   (let* ((beg (point-min)) (end (point-max))
         (file-base
          (make-temp-name (expand-file-name "tm" mime-temp-directory)))
@@ -209,11 +210,10 @@
 
 (set-alist 'mime-view-content-filter-alist
           "application/postscript"
-          (function mime-preview/filter-for-application/postscript))
+          (function mime-view-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")
   )