tm-setup.el

   1 ;;;
   2 ;;; $Id: tm-setup.el,v 6.4 1995/10/24 00:24:48 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 (call-after-loaded 'rmail
  58                    (function
  59                     (lambda ()
  60                       (require 'tm-rmail)
  61                       ))
  62                    'rmail-mode-hook)
  63
  64
  65 ;;; @ for mh-e
  66 ;;;
  67
  68 (let ((le (function
  69            (lambda ()
  70              (require 'tm-mh-e)
  71              ))
  72           ))
  73   (call-after-loaded 'mh-e le 'mh-folder-mode-hook)
  74   (if (not (featurep 'mh-e))
  75       (add-hook 'mh-letter-mode-hook le)
  76     ))
  77
  78
  79 ;;; @ for GNUS
  80 ;;;
  81
  82 (defvar tm-setup/use-gnusutil nil)
  83
  84 (let ((le (function
  85            (lambda ()
  86              (require 'tm-gnus)
  87              ))
  88           ))
  89   (if (and (boundp 'MULE) tm-setup/use-gnusutil)
  90       (progn
  91         (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
  92         (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
  93         (autoload 'gnusutil-initialize "gnusutil")
  94         (autoload 'gnusutil-add-group "gnusutil")
  95         (add-hook 'gnusutil-initialize-hook le)
  96         )
  97     (progn
  98       (add-hook 'gnus-Startup-hook le)
  99       (add-hook 'gnus-startup-hook le)
 100       )))
 101
 102
 103 ;;; @ end
 104 ;;;
 105
 106 (provide 'tm-setup)
 107
 108 ;;; Local Variables:
 109 ;;; mode: emacs-lisp
 110 ;;; mode: outline-minor
 111 ;;; outline-regexp: ";;; @+\\|(......"
 112 ;;; End: