X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-message.el;h=df44ae35ee8dbe62e7c290c2876c474ade4d5154;hb=8a81d3a3caef0f94f9721361a749f0b6429f30ce;hp=25ec645bb8da79ab512081fb6585824b858288e1;hpb=4039a2e37d987a72a1862956bc6c23d505f5f5e3;p=elisp%2Fwanderlust.git

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