Subject: [PATCH] on Emacs 21.0.105

From: [email-masked] (Takuo KITAME)
Date: Mon, 03 Sep 2001 14:51:44 +0900

こんにちは。

Emacs 21.0.105 で make-mode-line-mouse2-map がなくなり、
make-mode-line-mouse-map になったようなので、以下の修正が必要です。

-- 
北目 拓郎

--- wl/wl-e21.el
+++ wl/wl-e21.el
@@ -454,8 +454,8 @@
 
 (defun wl-plugged-init-icons ()
   (let ((props (when (display-mouse-p)
-		 (list 'local-map (purecopy (make-mode-line-mouse2-map
-					     #'wl-toggle-plugged))
+		 (list 'local-map (purecopy (make-mode-line-mouse-map
+					     'mouse-2 #'wl-toggle-plugged))
 		       'help-echo "mouse-2 toggles plugged status"))))
     (if (wl-e21-display-image-p)
 	(progn
@@ -485,8 +485,8 @@
 
 (defun wl-biff-init-icons ()
   (let ((props (when (display-mouse-p)
-		 (list 'local-map (purecopy (make-mode-line-mouse2-map
-					     #'wl-biff-check-folders))
+		 (list 'local-map (purecopy (make-mode-line-mouse-map
+					     'mouse-2 #'wl-biff-check-folders))
 		       'help-echo "mouse-2 checks new mails"))))
     (if (wl-e21-display-image-p)
 	(progn