X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-rich.el;h=b5ed5b378239eca1be0f3f1b5e3580f37cbb6057;hb=0fa17be6ba325078add802509cdbc980c6af7c45;hp=5ac2d8b336514a5521b8d2f3ca59fb26a4e26037;hpb=f6b5737ac980aa191b15543d4481f4f5a5697bb9;p=elisp%2Ftm.git

diff --git a/tm-rich.el b/tm-rich.el
index 5ac2d8b..b5ed5b3 100644
--- a/tm-rich.el
+++ b/tm-rich.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tm-rich.el,v 3.0 1994/11/29 17:59:32 morioka Exp $
+;;; $Id: tm-rich.el,v 4.0 1995/03/12 14:31:58 morioka Exp $
 ;;;
 ;;;          by MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 ;;; modified by YAMATE Keiichirou <ics9118@sem1.info.osaka-cu.ac.jp>
@@ -96,7 +96,7 @@
 	  )
 	))))
 
-(defun mime/decode-text/richtext (&optional ctl)
+(defun mime-viewer/filter-text/richtext (&optional ctype params)
   (interactive)
   (save-excursion
     (save-restriction
@@ -166,7 +166,7 @@
 	  )
 	))))
 
-(defun mime/decode-text/enriched (&optional ctl)
+(defun mime-viewer/filter-text/enriched (&optional ctype params)
   (interactive)
   (save-excursion
     (save-restriction
@@ -182,8 +182,8 @@
 ;;; @ setting
 ;;;
 
-(set-alist 'mime/content-filter-alist
-	   "text/richtext" (function mime/decode-text/richtext))
+(set-alist 'mime-viewer/content-filter-alist
+	   "text/richtext" (function mime-viewer/filter-text/richtext))
 
-(set-alist 'mime/content-filter-alist
-	   "text/enriched" (function mime/decode-text/enriched))
+(set-alist 'mime-viewer/content-filter-alist
+	   "text/enriched" (function mime-viewer/filter-text/enriched))