tm 6.8

[elisp/tm.git] / tm-rich.el

diff --git a/tm-rich.el b/tm-rich.el
index 5ac2d8b..b5ed5b3 100644 (file)
--- 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))