From: Lute Kamstra <lute@gnu.org>
Date: Fri, 10 Jun 2005 12:47:38 +0000 (+0000)
Subject: (eudc-hotlist-mode): Use run-mode-hooks.
X-Git-Tag: emacs-pretest-22.0.90~9105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7bdd8beba6ae2debc950d824b55db09bd2325a56;p=emacs.git

(eudc-hotlist-mode): Use run-mode-hooks.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 689c3c4e936..e2745296ca4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -33,6 +33,8 @@
 	* play/doctor.el (doctor-mode-map): Remove defvar.
 	(doctor-mode): Use define-derived-mode.
 
+	* mail/mspools.el (mspools-mode):
+	* net/eudc-hotlist.el (eudc-hotlist-mode):
 	* play/blackbox.el (blackbox-mode): Use run-mode-hooks.
 
 2005-06-10  Miles Bader  <miles@gnu.org>
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 9dc81ce2bc9..bede338b364 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -56,7 +56,8 @@ These are the special commands of this mode:
 	     (featurep 'menubar))
     (set-buffer-menubar current-menubar)
     (add-submenu nil (cons "EUDC-Hotlist" (cdr (cdr eudc-hotlist-menu)))))
-  (setq buffer-read-only t))
+  (setq buffer-read-only t)
+  (run-mode-hooks 'eudc-hotlist-mode-hook))
 
 ;;;###autoload
 (defun eudc-edit-hotlist ()