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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 689c3c4e936afdcbc73788fd93a59b5aa0c81bfb..e2745296ca49da87cf462a4811a7d074b1065213 100644 (file)
--- 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 9dc81ce2bc93ceae0b1f728e1f52a69cc14c3f06..bede338b364333b75a678e32a679db53d5933e0c 100644 (file)
--- 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 ()