;;;
;;; $Id: tm-setup.el,v 1.3 1994/08/30 04:26:05 morioka Exp $
;;;

(provide 'tm-setup)


;;; @ for Emacs 18
;;;
(if (< (string-to-int emacs-version) 19)
    (progn
      (require 'tl-18)
      (defvar buffer-undo-list nil)
      ))


;;; @ for RMAIL
;;;
(require 'tm-rmail)


;;; @ for mh-e
;;;
(add-hook 'mh-folder-mode-hook
	  (function
	   (lambda ()
	     (require 'tm-mh-e)
	     )))


;;; @ for GNUS
;;;
(let ((le (function
	   (lambda ()
	     (require 'tm-gnus)
	     )))
      )
  (if (boundp 'MULE)
      (progn
	(add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
	(add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
	(autoload 'gnusutil-initialize "gnusutil")
	(autoload 'gnusutil-add-group "gnusutil")
	(add-hook 'gnusutil-initialize-hook le)
	)
    (progn
      (add-hook 'gnus-Startup-hook le)
      (add-hook 'gnus-startup-hook le)
      )))

;;; Local Variables:
;;; mode: emacs-lisp
;;; mode: outline-minor
;;; outline-regexp: ";;; @+\\|(......"
;;; End: