*** empty log message ***

[gnus] / lisp / gnus-setup.el

diff --git a/lisp/gnus-setup.el b/lisp/gnus-setup.el
index 2478624..a564c1a 100644 (file)
--- a/lisp/gnus-setup.el
+++ b/lisp/gnus-setup.el
@@ -1,10 +1,10 @@
 ;;; gnus-setup.el --- Initialization & Setup for Gnus 5
-;; Copyright (C) 1995 Miranova Systems, Inc.
+;; Copyright (C) 1995, 96 Free Software Foundation, Inc.
 
 ;; Author: Steven L. Baur <steve@miranova.com>
 ;; Keywords: news
 
-;; This file is not yet a part of GNU Emacs.
+;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -39,7 +39,7 @@
   "Directory where Emacs site lisp is located.")
 
 (defvar gnus-gnus-lisp-directory (concat gnus-emacs-lisp-directory
-                                        "gnus-5.0.12/lisp/")
+                                        "gnus-5.0.15/lisp/")
   "Directory where Gnus Emacs lisp is found.")
 
 (defvar gnus-sgnus-lisp-directory (concat gnus-emacs-lisp-directory
@@ -83,6 +83,9 @@
   (if (null (member gnus-directory load-path))
       (setq load-path (cons gnus-directory load-path))))
 
+;;; We can't do this until we know where Gnus is.
+(require 'message)
+
 ;;; Tools for MIME by
 ;;; UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
 ;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
@@ -103,9 +106,7 @@
          (setq load-path (cons gnus-mailcrypt-lisp-directory load-path)))
       (autoload 'mc-install-write-mode "mailcrypt" nil t)
       (autoload 'mc-install-read-mode "mailcrypt" nil t)
-      (add-hook 'mail-mode-hook 'mc-install-write-mode)
-      (add-hook 'news-mode-hook 'mc-install-write-mode)
-      (add-hook 'news-reply-mode-hook 'mc-install-write-mode)
+      (add-hook 'message-mode-hook 'mc-install-write-mode)
       (add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
       (if gnus-use-mhe
          (progn