From 8a2b28d2a0eeec96ff744a01bae8023d674deeb1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 23 Jun 1995 22:15:43 +0000 Subject: [PATCH] Don't autoload anything to turn on mail-hist. (mail-hist-enable): New function, autoloaded. --- lisp/mail/mail-hist.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el index e0608a4cefd..fa0db93e2c0 100644 --- a/lisp/mail/mail-hist.el +++ b/lisp/mail/mail-hist.el @@ -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). -- 2.39.2