;;;
-;;; $Id: tm-setup.el,v 6.1 1995/04/23 18:09:07 morioka Exp $
+;;; $Id: tm-setup.el,v 7.2 1996/04/14 00:18:09 morioka Exp $
;;;
(require 'tl-misc)
-;;; @ for LaTeX
+;;; @ for tm-view
;;;
+
(call-after-loaded
'tm-view
(function
;; 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 image/*
+ (if running-xemacs
+ (require 'tm-image)
+ )
+
;; for LaTeX
(set-atype 'mime/content-decoding-condition
'((type . "text/x-latex")
)))
-;;; @ 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)
+
+(call-after-loaded 'rmail
+ (function
+ (lambda ()
+ (require 'tm-rmail)
+ ))
+ 'rmail-mode-hook)
;;; @ for mh-e
;;;
+
(let ((le (function
(lambda ()
(require 'tm-mh-e)
;;; @ for GNUS
;;;
+
+(defvar tm-setup/use-gnusutil nil)
+
(let ((le (function
(lambda ()
(require 'tm-gnus)
))
))
- (if (boundp 'MULE)
+ (if (and (boundp 'MULE) tm-setup/use-gnusutil)
(progn
(add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
(add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
(add-hook 'gnusutil-initialize-hook le)
)
(progn
- (add-hook 'gnus-Startup-hook le)
- (add-hook 'gnus-startup-hook le)
+ (add-hook 'gnus-Startup-hook le 'append)
+ (add-hook 'gnus-startup-hook le 'append)
)))