+
+(call-after-loaded
+ 'tm-view
+ (function
+ (lambda ()
+ ;; 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-article/decode-message/external-ftp)
+ ))
+ (autoload 'mime-article/decode-message/external-ftp "tm-ftp")
+
+ ;; for LaTeX
+ (set-atype 'mime/content-decoding-condition
+ '((type . "text/x-latex")
+ (method . mime/decode-text/latex)
+ ))
+ (set-atype 'mime/content-decoding-condition
+ '((type . "application/x-latex")
+ (method . mime/decode-text/latex)
+ ))
+ ;;(set-atype 'mime/content-decoding-condition
+ ;; '((type . "application/octet-stream")
+ ;; ("type" . "latex")
+ ;; (method . mime/decode-text/latex)
+ ;; ))
+ (autoload 'mime/decode-text/latex "tm-latex")
+ )))
+
+
+;; for image/* and X-Face
+(defvar mime-setup-enable-inline-image
+ (and window-system
+ (or running-xemacs
+ (and (featurep 'mule)(module-installed-p 'bitmap))
+ ))
+ "*If it is non-nil, tm-setup sets up to use tm-image.")
+
+(if mime-setup-enable-inline-image
+ (call-after-loaded 'tm-view
+ (function
+ (lambda ()
+ (require 'tm-image)
+ )))
+ )
+
+
+(defvar mime-setup-enable-pgp
+ (module-installed-p 'mailcrypt)
+ "*If it is non-nil, tm-setup sets uf to use tm-pgp.")
+
+;; for PGP
+(if mime-setup-enable-pgp
+ (call-after-loaded 'tm-view
+ (function
+ (lambda ()
+ (require 'tm-pgp)
+ )))
+ )