Re: (require 'mailabbrev)

[ShengHuo ZHU]

Richard Stallman <address@hidden> writes:

> Does this change fix the problem?
>
> I am thinking that it is wasteful to load sendmail.el
> if the user is using message.el instead.
>
> *** mailabbrev.el.~1.62.~     Sat Feb  2 23:07:59 2002
> --- mailabbrev.el     Fri Feb  8 10:33:03 2002
> ***************
> *** 598,606 ****
>     (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) 
>   
>   ;;(define-key mail-mode-map "\C-n" 'mail-abbrev-next-line)
>   ;;(define-key mail-mode-map "\M->" 'mail-abbrev-end-of-buffer)
> --- 598,608 ----
>     (setq this-command 'end-of-buffer)
>     (end-of-buffer arg))
>   
> ! (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)

It doesn't fix the problem. But the following code will do (a quote
mark before progn).

 (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)))

ShengHuo