From wl-admin@lists.airs.net Mon Sep 3 14:51:42 2001 Return-Path: Received: from lilac.debian.gr.jp (postfix@lilac.debian.gr.jp [210.166.75.29]) by ki.nu (8.9.3+3.2W/3.7W-00121620) with ESMTP id OAA15307 for ; Mon, 3 Sep 2001 14:51:40 +0900 (JST) Received: from lists.airs.net (excalibur.northeye.org [210.166.75.26]) by lilac.debian.gr.jp (Postfix) with ESMTP id 86851960C1; Mon, 3 Sep 2001 14:51:15 +0900 (JST) Received: from peppermint.northeye.org (NewEdward.Northeye.NET [210.166.75.25]) by excalibur.northeye.org (Postfix) with ESMTP id 40F2413ED80 for ; Mon, 3 Sep 2001 14:52:25 +0900 (JST) Delivered-To: wl@lists.airs.net Date: Mon, 03 Sep 2001 14:51:44 +0900 From: kitame@northeye.org (Takuo KITAME) Reply-To: wl@lists.airs.net Subject: [PATCH] on Emacs 21.0.105 To: wl@lists.airs.net Message-Id: <86bsksn7nz.wl@peppermint.northeye.org> X-ML-Name: Wanderlust X-Mail-Count: 07932 X-MLServer: fml [fml 3.0]; post only (anyone can post) X-ML-Info: If you have a question, send e-mail with the body "help" (without quotes) to the address wl-ctl@lists.airs.net; help= X-ML-URL: http://lists.airs.net/wl/ User-Agent: Wanderlust/2.7.3 (Too Funky) Emacs/21.0 Mule/5.0 (=?ISO-2022-JP?B?GyRCOC1MWhsoQg==?=) Organization: Northeye.ORG X-URL: http://northeye.org/ Mime-Version: 1.0 (generated by SEMI 1.14.3 - "Ushinoya") Content-Type: text/plain; charset=ISO-2022-JP Precedence: bulk Lines: 32 こんにちは。 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