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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 90fba91..f8f6013 100644 (file)
--- 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 (file)
--- 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."