From: hmurata <hmurata>
Date: Tue, 30 Sep 2003 11:57:19 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mode): Use make-local-hook instead of
X-Git-Tag: wl-2_11_19~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=27da8ad287df106a22b8252bcfc18df35597a5fa;p=elisp%2Fwanderlust.git

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