* wl-dnd.el (wl-dnd-drop-func): Fix.

* wl-message.el (wl-message-header-narrowing-widen-at-mouse): Use
mouse-set-point instead of posn-point.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c7ef76b..67acd41 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2004-02-10  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-dnd.el (wl-dnd-drop-func): Fix.
+
+       * wl-message.el (wl-message-header-narrowing-widen-at-mouse): Use
+       mouse-set-point instead of posn-point.
+
        * wl-xmas.el (wl-completing-read-multiple): Define as function.
 
        * wl-mule.el (wl-completing-read-multiple): Ditto.

diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el
index 59402d9..10a3502 100644 (file)
--- a/wl/wl-dnd.el
+++ b/wl/wl-dnd.el
@@ -71,7 +71,7 @@
       (set-buffer (wl-summary-get-buffer src-fld))
       (save-match-data
        (wl-summary-jump-to-msg number))
-      (wl-summary-refile target number)
+      (funcall (symbol-function 'wl-summary-refile) number target)
       (select-window (get-buffer-window (current-buffer)))
       ))
   t)

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 25ec645..df44ae3 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -861,7 +861,7 @@ Returns non-nil if bottom of message."
     (select-window (posn-window (event-start event)))
     (let* ((win (selected-window))
           (wpos (window-start win))
-          (pos (posn-point (event-start event)))
+          (pos (mouse-set-point event))
           (ovs (overlays-in (1- pos) (1+ pos)))        ;; Uum...
           ov)
       (while (and ovs (not (overlayp ov)))