Rename 'mime-view-filter-for-* -> 'mime-preview-filter-for-*.

diff --git a/mime-image.el b/mime-image.el
index 05bbd92..a405a4a 100644 (file)
--- a/mime-image.el
+++ b/mime-image.el
@@ -116,8 +116,7 @@
                  (list (cons 'type type)(cons 'subtype subtype)
                        '(body . visible)
                        '(body-presentation-method . with-filter)
-                       (cons 'body-filter
-                             #'mime-view-filter-for-image)
+                       (cons 'body-filter #'mime-preview-filter-for-image)
                        (cons 'image-format format))
                  )))))
        '((image jpeg           jpeg)
@@ -137,7 +136,7 @@
 ;;;
 ;;    (for XEmacs 19.12 or later)
 
-(defun mime-view-filter-for-image (situation)
+(defun mime-preview-filter-for-image (situation)
   (let ((beg (point-min))
        (end (point-max)))
     (remove-text-properties beg end '(face nil))
@@ -181,7 +180,7 @@
 
 ;; (defvar mime-view-ps-to-gif-command "pstogif")
 
-;; (defun mime-view-filter-for-application/postscript (ctype params encoding)
+;; (defun mime-preview-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)))
@@ -207,7 +206,7 @@
 
 ;; (set-alist 'mime-view-content-filter-alist
 ;;            "application/postscript"
-;;            (function mime-view-filter-for-application/postscript))
+;;            (function mime-preview-filter-for-application/postscript))
 
 ;; (if (featurep 'gif)
 ;;     (add-to-list

diff --git a/mime-text.el b/mime-text.el
index 748ab19..afb0b28 100644 (file)
--- a/mime-text.el
+++ b/mime-text.el
@@ -116,7 +116,7 @@ local variable `mime-text-decoder' and variable
 ;;; @ content filters for mime-text
 ;;;
 
-(defun mime-view-filter-for-text/plain (situation)
+(defun mime-preview-filter-for-text/plain (situation)
   (mime-text-decode-body situation)
   (goto-char (point-max))
   (if (not (eq (char-after (1- (point))) ?\n))
@@ -135,14 +135,14 @@ local variable `mime-text-decoder' and variable
   (run-hooks 'mime-view-plain-text-preview-hook)
   )
 
-(defun mime-view-filter-for-text/richtext (situation)
+(defun mime-preview-filter-for-text/richtext (situation)
   (let ((beg (point-min)))
     (remove-text-properties beg (point-max) '(face nil))
     (mime-text-decode-body situation)
     (richtext-decode beg (point-max))
     ))
 
-(defun mime-view-filter-for-text/enriched (situation)
+(defun mime-preview-filter-for-text/enriched (situation)
   (let ((beg (point-min)))
     (remove-text-properties beg (point-max) '(face nil))
     (mime-text-decode-body situation)

diff --git a/mime-view.el b/mime-view.el
index 2cd9ffe..245602a 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -3,8 +3,8 @@
 ;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1994/7/13
-;;     Renamed: 1994/8/31 from tm-body.el
+;; Created: 1994/07/13
+;;     Renamed: 1994/08/31 from tm-body.el
 ;;     Renamed: 1997/02/19 from tm-view.el
 ;; Keywords: MIME, multimedia, mail, news
 
@@ -378,33 +378,33 @@ Each elements are regexp of field-name.")
 (ctree-set-calist-strictly
  'mime-preview-condition '((body . visible)
                           (body-presentation-method . with-filter)
-                          (body-filter . mime-view-filter-for-text/plain)))
+                          (body-filter . mime-preview-filter-for-text/plain)))
 
 (ctree-set-calist-strictly
  'mime-preview-condition '((type . nil)
                           (body . visible)
                           (body-presentation-method . with-filter)
-                          (body-filter . mime-view-filter-for-text/plain)))
+                          (body-filter . mime-preview-filter-for-text/plain)))
 
 (ctree-set-calist-strictly
  'mime-preview-condition '((type . text)(subtype . enriched)
                           (body . visible)
                           (body-presentation-method . with-filter)
                           (body-filter
-                           . mime-view-filter-for-text/enriched)))
+                           . mime-preview-filter-for-text/enriched)))
 
 (ctree-set-calist-strictly
  'mime-preview-condition '((type . text)(subtype . richtext)
                           (body . visible)
                           (body-presentation-method . with-filter)
                           (body-filter
-                           . mime-view-filter-for-text/richtext)))
+                           . mime-preview-filter-for-text/richtext)))
 
 (ctree-set-calist-strictly
  'mime-preview-condition '((type . text)(subtype . t)
                           (body . visible)
                           (body-presentation-method . with-filter)
-                          (body-filter . mime-view-filter-for-text/plain)))
+                          (body-filter . mime-preview-filter-for-text/plain)))
 
 (ctree-set-calist-strictly
  'mime-preview-condition '((type . message)(subtype . partial)
@@ -424,9 +424,9 @@ Each elements are regexp of field-name.")
 ;;; @@@ entity filter
 ;;;
 
-(autoload 'mime-view-filter-for-text/plain "mime-text")
-(autoload 'mime-view-filter-for-text/enriched "mime-text")
-(autoload 'mime-view-filter-for-text/richtext "mime-text")
+(autoload 'mime-preview-filter-for-text/plain "mime-text")
+(autoload 'mime-preview-filter-for-text/enriched "mime-text")
+(autoload 'mime-preview-filter-for-text/richtext "mime-text")
 
 (defvar mime-text-decoder-alist
   '((mime-show-message-mode    . mime-text-decode-buffer)