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