Mercurial > emacs
changeset 15865:9f99285bb635
(message-mode): Delete abbrev mode initialization.
(message-mode-hook): Move it here, instead, so the user can override it.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Wed, 14 Aug 1996 02:47:51 +0000 |
| parents | c21d455f162f |
| children | 6f4cccfec044 |
| files | lisp/message.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/message.el Wed Aug 14 02:09:54 1996 +0000 +++ b/lisp/message.el Wed Aug 14 02:47:51 1996 +0000 @@ -260,7 +260,10 @@ It is run after the headers have been inserted and before the signature is inserted.") -(defvar message-mode-hook nil +(defvar message-mode-hook + (if (fboundp 'mail-abbrevs-setup) + '(mail-abbrevs-setup) + (list (intern "mail-aliases-setup"))) "Hook run in message mode buffers.") (defvar message-header-hook nil @@ -853,10 +856,6 @@ (when (string-match "XEmacs\\|Lucid" emacs-version) (message-setup-toolbar)) (easy-menu-add message-mode-menu message-mode-map) - ;; Allow mail alias things. - (if (fboundp 'mail-abbrevs-setup) - (mail-abbrevs-setup) - (funcall (intern "mail-aliases-setup"))) (run-hooks 'text-mode-hook 'message-mode-hook))