# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1118407505 0
# Node ID 7aa95a2ceedc25cc58cee93fda8cf3f85aecc9cd
# Parent  58b57765132c0cddd1f53a4d540d05027fcfc7bb
(eudc-hotlist-mode): Use run-mode-hooks.

diff -r 58b57765132c -r 7aa95a2ceedc lisp/net/eudc-hotlist.el
--- a/lisp/net/eudc-hotlist.el	Fri Jun 10 12:43:58 2005 +0000
+++ b/lisp/net/eudc-hotlist.el	Fri Jun 10 12:45:05 2005 +0000
@@ -56,7 +56,8 @@
 	     (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 ()