From: hmurata <hmurata>
Date: Thu, 2 Oct 2003 13:19:34 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mode): Don't use the return value of
X-Git-Tag: wl-2_11_19~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cedee10441ac232bcba8cb6a559daca983d7ad43;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-mode): Don't use the return value of
`make-local-hook'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0afd94a..f2a9102 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-mode): Don't use the return value of
+	`make-local-hook'.
+
 2003-10-02  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-thread.el (wl-thread-entity-get-older-brothers): Use `let'
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 1d8edcf..9d55db1 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -819,9 +819,8 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
   (setq wl-summary-buffer-window-scroll-functions
 	(wl-summary-window-scroll-functions))
   (when wl-summary-buffer-window-scroll-functions
-    (let ((hook (make-local-hook (if wl-on-xemacs
-				     'pre-idle-hook
-				   'window-scroll-functions))))
+    (let ((hook (if wl-on-xemacs 'pre-idle-hook 'window-scroll-functions)))
+      (make-local-hook hook)
       (dolist (function wl-summary-buffer-window-scroll-functions)
 	(add-hook hook function nil t))))
   ;; This hook may contain the function `wl-setup-summary' for reasons