tm-setup.el

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