From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Feb 2002 09:46:08 +0000 (+0000)
Subject: (mail-mode-map): Use eval-after-load to change it.
X-Git-Tag: ttn-vms-21-2-B4~16750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f526e65a47f11a48cbaca1e0dfd608025bd0a904;p=emacs.git

(mail-mode-map): Use eval-after-load to change it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45adc741bcb..00f11001162 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-09  Richard M. Stallman  <rms@gnu.org>
+
+	* mail/mailabbrev.el (mail-mode-map): Use eval-after-load to change it.
+
 2002-02-09  Kim F. Storm  <storm@cua.dk>
 
 	* faces.el (mode-line-inactive): New face for mode-line for
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index f57141dcb0e..5243438fbe8 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -598,9 +598,11 @@ Don't use this command in Lisp programs!
   (setq this-command 'end-of-buffer)
   (end-of-buffer arg))
 
-(define-key mail-mode-map "\C-c\C-a" 'mail-abbrev-insert-alias)
-(define-key mail-mode-map "\e\t"	; like lisp-complete-symbol
-  'mail-abbrev-complete-alias) 
+(eval-after-load "sendmail"
+  '(progn
+     (define-key mail-mode-map "\C-c\C-a" 'mail-abbrev-insert-alias)
+     (define-key mail-mode-map "\e\t"	; like lisp-complete-symbol
+       'mail-abbrev-complete-alias)))
 
 ;;(define-key mail-mode-map "\C-n" 'mail-abbrev-next-line)
 ;;(define-key mail-mode-map "\M->" 'mail-abbrev-end-of-buffer)