tm-setup.el

   1 ;;;
   2 ;;; $Id: tm-setup.el,v 6.3 1995/09/10 15:45:42 morioka Exp $
   3 ;;;
   4
   5 (require 'tl-misc)
   6
   7
   8 ;;; @ for tm-view
   9 ;;;
  10
  11 (call-after-loaded
  12  'tm-view
  13  (function
  14   (lambda ()
  15     ;; for message/partial
  16     (require 'tm-partial)
  17
  18     ;; for anonymous ftp
  19     (set-atype 'mime/content-decoding-condition
  20                '((type . "message/external-body")
  21                  ("access-type" . "anon-ftp")
  22                  (method . mime/decode-message/external-ftp)
  23                  ))
  24     (autoload 'mime/decode-message/external-ftp "tm-ftp")
  25
  26     ;; for text/richtext
  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")
  30
  31     ;; for text/enriched
  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")
  35
  36     ;; for LaTeX
  37     (set-atype 'mime/content-decoding-condition
  38                '((type . "text/x-latex")
  39                  (method . mime/decode-text/latex)
  40                  ))
  41     (set-atype 'mime/content-decoding-condition
  42                '((type . "application/x-latex")
  43                  (method . mime/decode-text/latex)
  44                  ))
  45     ;;(set-atype 'mime/content-decoding-condition
  46     ;;  '((type . "application/octet-stream")
  47     ;;            ("type" . "latex")
  48     ;;            (method . mime/decode-text/latex)
  49     ;;            ))
  50     (autoload 'mime/decode-text/latex "tm-latex")
  51     )))
  52
  53
  54 ;;; @ for RMAIL
  55 ;;;
  56
  57 (require 'tm-rmail)
  58
  59
  60 ;;; @ for mh-e
  61 ;;;
  62
  63 (let ((le (function
  64            (lambda ()
  65              (require 'tm-mh-e)
  66              ))
  67           ))
  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)
  71     ))
  72
  73
  74 ;;; @ for GNUS
  75 ;;;
  76
  77 (defvar tm-setup/use-gnusutil nil)
  78
  79 (let ((le (function
  80            (lambda ()
  81              (require 'tm-gnus)
  82              ))
  83           ))
  84   (if (and (boundp 'MULE) tm-setup/use-gnusutil)
  85       (progn
  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)
  91         )
  92     (progn
  93       (add-hook 'gnus-Startup-hook le)
  94       (add-hook 'gnus-startup-hook le)
  95       )))
  96
  97
  98 ;;; @ end
  99 ;;;
 100
 101 (provide 'tm-setup)
 102
 103 ;;; Local Variables:
 104 ;;; mode: emacs-lisp
 105 ;;; mode: outline-minor
 106 ;;; outline-regexp: ";;; @+\\|(......"
 107 ;;; End: