# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803945743 0
# Node ID 8415d665d19fc28be612eedb9c422f1856edd380
# Parent  8fecaa78ac4bb129b29c09975e576533e815ea9f
Don't autoload anything to turn on mail-hist.
(mail-hist-enable): New function, autoloaded.

diff -r 8fecaa78ac4b -r 8415d665d19f lisp/mail/mail-hist.el
--- a/lisp/mail/mail-hist.el	Fri Jun 23 15:50:17 1995 +0000
+++ b/lisp/mail/mail-hist.el	Fri Jun 23 22:15:43 1995 +0000
@@ -61,13 +61,9 @@
   (local-set-key "\M-n" 'mail-hist-next-input))
 
 ;;;###autoload
-(add-hook 'mail-mode-hook 'mail-hist-define-keys)
-
-;;;###autoload
-(add-hook 'vm-mail-mode-hook 'mail-hist-define-keys)
-
-;;;###autoload
-(add-hook 'mail-send-hook 'mail-hist-put-headers-into-history)
+(defun mail-hist-enable ()
+  (add-hook 'mail-mode-hook 'mail-hist-define-keys)
+  (add-hook 'mail-send-hook 'mail-hist-put-headers-into-history))
 
 (defvar mail-hist-header-ring-alist nil
   "Alist of form (header-name . history-ring).