tm 6.80.

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

diff --git a/tm-setup.el b/tm-setup.el
index 73c24a7..50b359b 100644 (file)
--- a/tm-setup.el
+++ b/tm-setup.el
@@ -1,12 +1,13 @@
 ;;;
-;;; $Id: tm-setup.el,v 6.2 1995/05/30 05:48:22 morioka Exp $
+;;; $Id: tm-setup.el,v 6.3 1995/09/10 15:45:42 morioka Exp $
 ;;;
 
 (require 'tl-misc)
 
 
-;;; @ for LaTeX
+;;; @ for tm-view
 ;;;
+
 (call-after-loaded
  'tm-view
  (function
@@ -14,6 +15,24 @@
     ;; for message/partial
     (require 'tm-partial)
     
+    ;; for anonymous ftp
+    (set-atype 'mime/content-decoding-condition
+              '((type . "message/external-body")
+                ("access-type" . "anon-ftp")
+                (method . mime/decode-message/external-ftp)
+                ))
+    (autoload 'mime/decode-message/external-ftp "tm-ftp")
+
+    ;; for text/richtext
+    (set-alist 'mime-viewer/content-filter-alist
+              "text/richtext" (function mime-viewer/filter-text/richtext))
+    (autoload 'mime-viewer/filter-text/richtext "tm-rich")
+
+    ;; for text/enriched
+    (set-alist 'mime-viewer/content-filter-alist
+              "text/enriched" (function mime-viewer/filter-text/enriched))
+    (autoload 'mime-viewer/filter-text/enriched "tm-rich")
+    
     ;; for LaTeX
     (set-atype 'mime/content-decoding-condition
               '((type . "text/x-latex")
@@ -32,28 +51,15 @@
     )))
 
 
-;;; @ for Anonymous FTP (need of ange-ftp)
-;;;
-(call-after-loaded
- 'tm-view
- (function
-  (lambda ()
-    (set-atype 'mime/content-decoding-condition
-              '((type . "message/external-body")
-                ("access-type" . "anon-ftp")
-                (method . mime/decode-message/external-ftp)
-                ))
-    (autoload 'mime/decode-message/external-ftp "tm-ftp")
-    )))
-
-
 ;;; @ for RMAIL
 ;;;
+
 (require 'tm-rmail)
 
 
 ;;; @ for mh-e
 ;;;
+
 (let ((le (function
           (lambda ()
             (require 'tm-mh-e)