From: yamaoka <yamaoka>
Date: Thu, 26 Oct 2000 23:46:25 +0000 (+0000)
Subject: (wl-message-overload-functions): Do nothing if `current-local-map' is not
X-Git-Tag: wl-2_4-root~68
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5dd80bfd36337c2a94abe766fbe03b112a22735e;p=elisp%2Fwanderlust.git

(wl-message-overload-functions): Do nothing if `current-local-map' is not
available.
(wl-e21-setup-message-toolbar): Allow the argument `keymap'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ca6bc7b..d91da8f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-26  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+	* wl-e21.el (wl-message-overload-functions): Do nothing if
+	`current-local-map' is not available.
+	(wl-e21-setup-message-toolbar): Allow the argument `keymap'.
+
 2000-10-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-fldmgr.el (wl-fldmgr-save-folders): Fixed permission lateral
diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 17ee417..accef24 100644
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -222,11 +222,11 @@
        (wl-e21-make-toolbar-buttons wl-summary-mode-map wl-summary-toolbar)))
 
 (eval-when-compile
-  (defsubst wl-e21-setup-message-toolbar ()
+  (defsubst wl-e21-setup-message-toolbar (keymap)
     (and wl-use-toolbar
 	 (display-graphic-p)
 	 (wl-e21-setup-toolbar wl-message-toolbar)
-	 (wl-e21-make-toolbar-buttons (current-local-map) wl-message-toolbar)))
+	 (wl-e21-make-toolbar-buttons keymap wl-message-toolbar)))
 
   (defsubst wl-e21-setup-draft-toolbar ()
     (and wl-use-toolbar
@@ -508,16 +508,18 @@
 (defalias 'wl-setup-summary 'wl-e21-setup-summary-toolbar)
 
 (defun wl-message-overload-functions ()
-  (wl-e21-setup-message-toolbar)
   (let ((keymap (current-local-map)))
-    (define-key keymap "l" 'wl-message-toggle-disp-summary)
-    (define-key keymap [mouse-2] 'wl-message-refer-article-or-url)
-    (define-key keymap [mouse-4] 'wl-message-wheel-down)
-    (define-key keymap [mouse-5] 'wl-message-wheel-up)
-    (define-key keymap [S-mouse-4] 'wl-message-wheel-down)
-    (define-key keymap [S-mouse-5] 'wl-message-wheel-up)
-    (set-keymap-parent wl-message-button-map keymap))
-  (define-key wl-message-button-map [mouse-2] 'wl-message-button-dispatcher))
+    (when keymap
+      (wl-e21-setup-message-toolbar keymap)
+      (define-key keymap "l" 'wl-message-toggle-disp-summary)
+      (define-key keymap [mouse-2] 'wl-message-refer-article-or-url)
+      (define-key keymap [mouse-4] 'wl-message-wheel-down)
+      (define-key keymap [mouse-5] 'wl-message-wheel-up)
+      (define-key keymap [S-mouse-4] 'wl-message-wheel-down)
+      (define-key keymap [S-mouse-5] 'wl-message-wheel-up)
+      (set-keymap-parent wl-message-button-map keymap)
+      (define-key wl-message-button-map
+	[mouse-2] 'wl-message-button-dispatcher))))
 
 (defun wl-message-wheel-up (event)
   (interactive "e")