`mime-preview/filter-' -> `mime-view-filter-'.

diff --git a/mime-image.el b/mime-image.el
index 5a46be6..d865010 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.9 1997-03-16 01:02:03 morioka Exp $
+;;     $Id: mime-image.el,v 0.10 1997-04-03 18:09:35 morioka Exp $
 
 ;; Keywords: image, picture, X-Face, MIME, multimedia, mail, news
 
@@ -118,7 +118,7 @@
                 (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
@@ -144,7 +144,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 +186,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,7 +209,7 @@
 
 (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-visible-media-type-list "application/postscript")