From: morioka <morioka>
Date: Wed, 25 Mar 1998 08:41:21 +0000 (+0000)
Subject: Rename 'mime-view-filter-for-* -> 'mime-preview-filter-for-*.
X-Git-Tag: akemi-1_2_0~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3f0a567153bcfb4b432c942ca352388616fcb056;p=elisp%2Fsemi.git

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

diff --git a/mime-image.el b/mime-image.el
index 05bbd92..a405a4a 100644
--- 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
--- 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
--- 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)