From: teranisi <teranisi>
Date: Tue, 10 Feb 2004 13:29:29 +0000 (+0000)
Subject: * wl-dnd.el (wl-dnd-drop-func): Fix.
X-Git-Tag: wl-2_11_25~73
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8a81d3a3caef0f94f9721361a749f0b6429f30ce;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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)))