From: ueno <ueno>
Date: Tue, 24 Oct 2000 06:07:26 +0000 (+0000)
Subject: * wl-message.el (wl-message-add-button): Use overlay.
X-Git-Tag: wl-2_4-root~90
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0a4c075d7112c49e5ede7328f06254b9a64a3e02;p=elisp%2Fwanderlust.git

* wl-message.el (wl-message-add-button): Use overlay.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 90fba91..f8f6013 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-24   Daiki Ueno <ueno@unixuser.org>
+
+	* wl-message.el (wl-message-add-button): Use overlay.
+
 2000-10-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-draft.el (wl-draft-parse-mailbox-list): Don't insert extra space.
diff --git a/wl/wl-message.el b/wl/wl-message.el
index c1c7684..8d52d2c 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -556,11 +556,13 @@
   "Create a button between FROM and TO with callback FUNCTION and DATA."
   (add-text-properties
    from to
-   (nconc (list 'mouse-face 'highlight)
-	  (list 'local-map wl-message-button-map)
-	  (list 'wl-message-button-callback function)
+   (nconc (list 'wl-message-button-callback function)
 	  (if data
-	      (list 'wl-message-button-data data)))))
+	      (list 'wl-message-button-data data))))
+  (let ((ov (make-overlay from to)))
+    (overlay-put ov 'mouse-face 'highlight)
+    (overlay-put ov 'local-map wl-message-button-map)
+    (overlay-put ov 'evaporate t)))
 
 (defun wl-message-button-dispatcher (event)
   "Select the button under point."