mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(message-mode): Delete abbrev mode initialization.

Browse Source 
(message-mode-hook): Move it here, instead, so the user can override it.
This commit is contained in:
Erik Naggum 1996-08-14 02:47:51 +00:00
parent 65148c7453
commit a6392777ab
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/message.el
View File

@ -260,7 +260,10 @@ The function `message-setup' runs this hook.")
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 @@ C-c C-r message-ceasar-buffer-body (rot13 the message body)."
(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))