comparison lisp/message.el @ 15865:9f99285bb635

(message-mode): Delete abbrev mode initialization. (message-mode-hook): Move it here, instead, so the user can override it.

15864:c21d455f162f

(defvar message-signature-setup-hook nil
  "Normal hook, run each time a new outgoing message is initialized.
It is run after the headers have been inserted and before 
the signature is inserted.")

(defvar message-mode-hook nil
  "Hook run in message mode buffers.")

(defvar message-header-hook nil
  "Hook run in a message mode buffer narrowed to the headers.")

  ;;(when (fboundp 'mail-hist-define-keys)
  ;;  (mail-hist-define-keys))
  (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))



;;;

15865:9f99285bb635

(defvar message-signature-setup-hook nil
  "Normal hook, run each time a new outgoing message is initialized.
It is run after the headers have been inserted and before 
the signature is inserted.")

(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
  "Hook run in a message mode buffer narrowed to the headers.")

  ;;(when (fboundp 'mail-hist-define-keys)
  ;;  (mail-hist-define-keys))
  (when (string-match "XEmacs\\|Lucid" emacs-version)
    (message-setup-toolbar))
  (easy-menu-add message-mode-menu message-mode-map)
  (run-hooks 'text-mode-hook 'message-mode-hook))



;;;