tm-setup.el

   1 ;;;
   2 ;;; $Id: tm-setup.el,v 5.0 1994/12/22 05:45:32 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              (set-atype 'mime/content-decoding-condition
  22                         '((type . "text/x-latex")
  23                           (method . mime/decode-text/latex)
  24                           ))
  25              (set-atype 'mime/content-decoding-condition
  26                         '((type . "application/x-latex")
  27                           (method . mime/decode-text/latex)
  28                           ))
  29              (set-atype 'mime/content-decoding-condition
  30                         '((type . "application/octet-stream")
  31                           ("type" . "latex")
  32                           (method . mime/decode-text/latex)
  33                           ))
  34              (autoload 'mime/decode-text/latex "tm-latex")
  35              )))
  36
  37
  38 ;;; @ for Anonymous FTP (need of ange-ftp)
  39 ;;;
  40 (add-hook 'tm-view-load-hook
  41           (function
  42            (lambda ()
  43              (set-atype 'mime/content-decoding-condition
  44                         '((type . "message/external-body")
  45                           ("access-type" . "anon-ftp")
  46                           (method . mime/decode-message/external-ftp)
  47                           ))
  48              (autoload 'mime/decode-message/external-ftp "tm-ftp")
  49              )))
  50
  51
  52 ;;; @ for RMAIL
  53 ;;;
  54 (require 'tm-rmail)
  55
  56
  57 ;;; @ for mh-e
  58 ;;;
  59 (add-hook 'mh-folder-mode-hook
  60           (function
  61            (lambda ()
  62              (require 'tm-mh-e)
  63              )))
  64 (add-hook 'mh-letter-mode-hook
  65           (function
  66            (lambda ()
  67              (require 'tm-mh-e)
  68              )))
  69
  70
  71 ;;; @ for GNUS
  72 ;;;
  73 (let ((le (function
  74            (lambda ()
  75              (require 'tm-gnus)
  76              )))
  77       )
  78   (if (boundp 'MULE)
  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 ;;; Local Variables:
  92 ;;; mode: emacs-lisp
  93 ;;; mode: outline-minor
  94 ;;; outline-regexp: ";;; @+\\|(......"
  95 ;;; End: