tm-setup.el

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