* wl-summary.el (wl-summary-mode): Use make-local-hook instead of

make-local-variable.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 83880f7..db548c5 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-30  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-summary.el (wl-summary-mode): Use make-local-hook instead of
+       make-local-variable.
+
 2003-09-29  Yuuichi Teranishi  <teranisi@ns.templewest.net>
 
        * wl-summary.el (wl-summary-update-mark-and-highlight-window): Call

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5eef392..430e99d 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -824,11 +824,11 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
   (wl-mode-line-buffer-identification '(wl-summary-buffer-mode-line))
   (easy-menu-add wl-summary-mode-menu)
   (when (wl-summary-window-scroll-functions)
-    (let ((variable (if wl-on-xemacs
-                       (make-local-variable 'pre-idle-hook)
-                     (make-local-variable 'window-scroll-functions))))
+    (let ((hook (make-local-hook (if wl-on-xemacs
+                                    'pre-idle-hook
+                                  'window-scroll-functions))))
       (dolist (function (wl-summary-window-scroll-functions))
-       (add-hook variable function))))
+       (add-hook hook function nil t))))
   ;; This hook may contain the function `wl-setup-summary' for reasons
   ;; of system internal to accord facilities for the Emacs variants.
   (run-hooks 'wl-summary-mode-hook))