From: teranisi <teranisi>
Date: Fri, 21 Apr 2000 03:40:58 +0000 (+0000)
Subject: (wl-summary-prefetch-region):
X-Git-Tag: wl-1_1_1~35
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cc62debc4126ae2183091cd7b07cd67eb9a53331;p=elisp%2Fwanderlust.git

(wl-summary-prefetch-region):
 Pass current cursor point to `pos-visible-in-window-p' after
 moving cursor to the started point.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index a3c0584..9133842 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-04-18 11:30:43 teranisi>
+;; Time-stamp: <00/04/21 12:32:28 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -1424,7 +1424,7 @@ If optional argument is non-nil, checking is omitted."
 	targets
 	mark length
 	entity msg
-	start-pos)
+	start-pos pos)
     (save-excursion
       (setq start-pos (point))
       (save-restriction
@@ -1471,11 +1471,12 @@ If optional argument is non-nil, checking is omitted."
 	      (message "Prefetching... %d/%d message(s)"
 		       (setq count (+ 1 count)) length))
 	  ;; redisplay!
-	  (if (pos-visible-in-window-p)
-	      (save-excursion
+	  (save-excursion
+	    (setq pos (point))
+	    (goto-char start-pos)
+	    (if (pos-visible-in-window-p pos)
 		(save-restriction
 		  (widen)
-		  (goto-char start-pos)
 		  (sit-for 0))))
 	  (setq targets (cdr targets)))
 	(message "Prefetched %d/%d message(s)" count length)