projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r86, which
[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>
;;;
;;; 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
(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
(interactive)
(save-excursion
(save-restriction
@@
-182,8
+182,8
@@
;;; @ setting
;;;
;;; @ 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))