tm-setup.el

   1 ;;;
   2 ;;; $Id: tm-setup.el,v 7.0 1995/12/17 13:02:30 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 image/*
  37     (if (string-match "XEmacs" emacs-version)
  38         (require 'tm-image)
  39       )
  40
  41     ;; for LaTeX
  42     (set-atype 'mime/content-decoding-condition
  43                '((type . "text/x-latex")
  44                  (method . mime/decode-text/latex)
  45                  ))
  46     (set-atype 'mime/content-decoding-condition
  47                '((type . "application/x-latex")
  48                  (method . mime/decode-text/latex)
  49                  ))
  50     ;;(set-atype 'mime/content-decoding-condition
  51     ;;  '((type . "application/octet-stream")
  52     ;;            ("type" . "latex")
  53     ;;            (method . mime/decode-text/latex)
  54     ;;            ))
  55     (autoload 'mime/decode-text/latex "tm-latex")
  56     )))
  57
  58
  59 ;;; @ for RMAIL
  60 ;;;
  61
  62 (call-after-loaded 'rmail
  63                    (function
  64                     (lambda ()
  65                       (require 'tm-rmail)
  66                       ))
  67                    'rmail-mode-hook)
  68
  69
  70 ;;; @ for mh-e
  71 ;;;
  72
  73 (let ((le (function
  74            (lambda ()
  75              (require 'tm-mh-e)
  76              ))
  77           ))
  78   (call-after-loaded 'mh-e le 'mh-folder-mode-hook)
  79   (if (not (featurep 'mh-e))
  80       (add-hook 'mh-letter-mode-hook le)
  81     ))
  82
  83
  84 ;;; @ for GNUS
  85 ;;;
  86
  87 (defvar tm-setup/use-gnusutil nil)
  88
  89 (let ((le (function
  90            (lambda ()
  91              (require 'tm-gnus)
  92              ))
  93           ))
  94   (if (and (boundp 'MULE) tm-setup/use-gnusutil)
  95       (progn
  96         (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
  97         (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
  98         (autoload 'gnusutil-initialize "gnusutil")
  99         (autoload 'gnusutil-add-group "gnusutil")
 100         (add-hook 'gnusutil-initialize-hook le)
 101         )
 102     (progn
 103       (add-hook 'gnus-Startup-hook le)
 104       (add-hook 'gnus-startup-hook le)
 105       )))
 106
 107
 108 ;;; @ end
 109 ;;;
 110
 111 (provide 'tm-setup)
 112
 113 ;;; Local Variables:
 114 ;;; mode: emacs-lisp
 115 ;;; mode: outline-minor
 116 ;;; outline-regexp: ";;; @+\\|(......"
 117 ;;; End: