;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-setup.el,v 7.3 1996/05/08 15:00:00 morioka Exp $
+;;; $Id: tm-setup.el,v 7.4 1996/08/06 12:12:53 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
(defvar tm-setup/use-gnusutil nil)
-(let ((le (function
- (lambda ()
- (require 'tm-gnus)
- ))
- ))
- (if (and (boundp 'MULE) tm-setup/use-gnusutil)
- (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)
- )
+(defun tm-setup/load-GNUS ()
+ (require 'tm-gnus)
+ )
+
+(if (and (boundp 'MULE) tm-setup/use-gnusutil)
(progn
- (add-hook 'gnus-Startup-hook le 'append)
- (add-hook 'gnus-startup-hook le 'append)
- )))
+ (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 'tm-setup/load-GNUS)
+ )
+ (add-hook 'gnus-Startup-hook 'tm-setup/load-GNUS 'append)
+ (add-hook 'gnus-startup-hook 'tm-setup/load-GNUS 'append)
+ )
+
+
+;;; @ for Gnus
+;;;
+
+(defun tm-setup/load-gnus ()
+ (let (gnus-load-hook)
+ (remove-hook 'gnus-startup-hook 'tm-setup/load-GNUS)
+ (require 'gnus-mime)
+ ))
+
+(add-hook 'gnus-load-hook 'tm-setup/load-gnus)
;;; @ end