From cc62debc4126ae2183091cd7b07cd67eb9a53331 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 21 Apr 2000 03:40:58 +0000 Subject: [PATCH] (wl-summary-prefetch-region): Pass current cursor point to `pos-visible-in-window-p' after moving cursor to the started point. --- wl/wl-summary.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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 ;; 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) -- 1.7.10.4