tm-setup.el

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