2 ;;; $Id: tm-setup.el,v 6.3 1995/09/10 15:45:42 morioka Exp $
15 ;; for message/partial
19 (set-atype 'mime/content-decoding-condition
20 '((type . "message/external-body")
21 ("access-type" . "anon-ftp")
22 (method . mime/decode-message/external-ftp)
24 (autoload 'mime/decode-message/external-ftp "tm-ftp")
27 (set-alist 'mime-viewer/content-filter-alist
28 "text/richtext" (function mime-viewer/filter-text/richtext))
29 (autoload 'mime-viewer/filter-text/richtext "tm-rich")
32 (set-alist 'mime-viewer/content-filter-alist
33 "text/enriched" (function mime-viewer/filter-text/enriched))
34 (autoload 'mime-viewer/filter-text/enriched "tm-rich")
37 (set-atype 'mime/content-decoding-condition
38 '((type . "text/x-latex")
39 (method . mime/decode-text/latex)
41 (set-atype 'mime/content-decoding-condition
42 '((type . "application/x-latex")
43 (method . mime/decode-text/latex)
45 ;;(set-atype 'mime/content-decoding-condition
46 ;; '((type . "application/octet-stream")
48 ;; (method . mime/decode-text/latex)
50 (autoload 'mime/decode-text/latex "tm-latex")
68 (call-after-loaded 'mh-e le 'mh-folder-mode-hook)
69 (if (not (featurep 'mh-e))
70 (add-hook 'mh-letter-mode-hook le)
77 (defvar tm-setup/use-gnusutil nil)
84 (if (and (boundp 'MULE) tm-setup/use-gnusutil)
86 (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
87 (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
88 (autoload 'gnusutil-initialize "gnusutil")
89 (autoload 'gnusutil-add-group "gnusutil")
90 (add-hook 'gnusutil-initialize-hook le)
93 (add-hook 'gnus-Startup-hook le)
94 (add-hook 'gnus-startup-hook le)
105 ;;; mode: outline-minor
106 ;;; outline-regexp: ";;; @+\\|(......"