From: yamaoka <yamaoka>
Date: Tue, 2 Oct 2001 04:43:50 +0000 (+0000)
Subject: * wl-xmas.el (wl-message-define-keymap): Return a keymap.
X-Git-Tag: wl-2_7_5~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3334640016e221caad2303a2116bfd306caea777;p=elisp%2Fwanderlust.git

* wl-xmas.el (wl-message-define-keymap): Return a keymap.
* wl-mule.el (wl-message-define-keymap): Fixed parenthesis; return a keymap.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 124e76e..9f9eabc 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* wl-xmas.el (wl-message-define-keymap): Return a keymap.
+	* wl-mule.el (wl-message-define-keymap): Fixed parenthesis; return
+	a keymap.
+
 2001-10-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-e21.el (wl-message-define-keymap): Don't set widget-keymap as
diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index 4ee73df..b934b1a 100644
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -108,7 +108,8 @@ Special commands:
     (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))
+      'wl-message-button-dispatcher)
+    keymap))
 
 (defun wl-message-wheel-up (event)
   (interactive "e")
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 079940c..e31bff5 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -451,7 +451,8 @@
     (define-key keymap [(shift button5)] 'wl-message-wheel-up)
     (set-keymap-parent wl-message-button-map keymap)
     (define-key wl-message-button-map 'button2
-      'wl-message-button-dispatcher)))
+      'wl-message-button-dispatcher)
+    keymap))
 
 (defun wl-message-wheel-up (event)
   (interactive "e")