tm-setup.el

   1 ;;;
   2 ;;; $Id: tm-setup.el,v 3.0 1994/09/01 05:37:13 morioka Exp $
   3 ;;;
   4
   5 (provide 'tm-setup)
   6
   7
   8 ;;; @ for Emacs 18
   9 ;;;
  10 (if (< (string-to-int emacs-version) 19)
  11     (progn
  12       (require 'tl-18)
  13       (defvar buffer-undo-list nil)
  14       ))
  15
  16
  17 ;;; @ for RMAIL
  18 ;;;
  19 (require 'tm-rmail)
  20
  21
  22 ;;; @ for mh-e
  23 ;;;
  24 (add-hook 'mh-folder-mode-hook
  25           (function
  26            (lambda ()
  27              (require 'tm-mh-e)
  28              )))
  29 (add-hook 'mh-letter-mode-hook
  30           (function
  31            (lambda ()
  32              (require 'tm-mh-e)
  33              )))
  34
  35
  36 ;;; @ for GNUS
  37 ;;;
  38 (let ((le (function
  39            (lambda ()
  40              (require 'tm-gnus)
  41              )))
  42       )
  43   (if (boundp 'MULE)
  44       (progn
  45         (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
  46         (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
  47         (autoload 'gnusutil-initialize "gnusutil")
  48         (autoload 'gnusutil-add-group "gnusutil")
  49         (add-hook 'gnusutil-initialize-hook le)
  50         )
  51     (progn
  52       (add-hook 'gnus-Startup-hook le)
  53       (add-hook 'gnus-startup-hook le)
  54       )))
  55
  56 ;;; Local Variables:
  57 ;;; mode: emacs-lisp
  58 ;;; mode: outline-minor
  59 ;;; outline-regexp: ";;; @+\\|(......"
  60 ;;; End: