tm-setup.el

   1 ;;;
   2 ;;; $Id: tm-setup.el,v 1.2 1994/08/20 12:07:45 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 mh-e
  18 ;;;
  19 (add-hook 'mh-folder-mode-hook
  20           (function
  21            (lambda ()
  22              (require 'tm-mh-e)
  23              )))
  24
  25
  26 ;;; @ for GNUS
  27 ;;;
  28 (let ((le (function
  29            (lambda ()
  30              (require 'tm-gnus)
  31              )))
  32       )
  33   (if (boundp 'MULE)
  34       (progn
  35         (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
  36         (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
  37         (autoload 'gnusutil-initialize "gnusutil")
  38         (autoload 'gnusutil-add-group "gnusutil")
  39         (add-hook 'gnusutil-initialize-hook le)
  40         )
  41     (progn
  42       (add-hook 'gnus-Startup-hook le)
  43       (add-hook 'gnus-startup-hook le)
  44       )))
  45
  46 ;;; Local Variables:
  47 ;;; mode: emacs-lisp
  48 ;;; mode: outline-minor
  49 ;;; outline-regexp: ";;; @+\\|(......"
  50 ;;; End: