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

2 files changed, 4 insertions, 1 deletions

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 ()