tm-setup.el

   1 ;;;
   2 ;;; $Id: tm-setup.el,v 1.3 1994/08/30 04:26:05 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
  30
  31 ;;; @ for GNUS
  32 ;;;
  33 (let ((le (function
  34            (lambda ()
  35              (require 'tm-gnus)
  36              )))
  37       )
  38   (if (boundp 'MULE)
  39       (progn
  40         (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
  41         (add-hook 'gnus-group-mode-hook (function gnusutil-initialize))
  42         (autoload 'gnusutil-initialize "gnusutil")
  43         (autoload 'gnusutil-add-group "gnusutil")
  44         (add-hook 'gnusutil-initialize-hook le)
  45         )
  46     (progn
  47       (add-hook 'gnus-Startup-hook le)
  48       (add-hook 'gnus-startup-hook le)
  49       )))
  50
  51 ;;; Local Variables:
  52 ;;; mode: emacs-lisp
  53 ;;; mode: outline-minor
  54 ;;; outline-regexp: ";;; @+\\|(......"
  55 ;;; End: