(wl-summary-prefetch-region):

[elisp/wanderlust.git] / wl / wl-summary.el

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 490bc74..9133842 100644 (file)
--- 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 10:27:36 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)
@@ -2756,8 +2757,9 @@ If optional argument is non-nil, checking is omitted."
                  (save-excursion
                    (forward-line (- 
                                   0 
-                                  (or wl-summary-partial-highlight-above-lines
-                                      wl-summary-highlight-partial-threshold)))
+                                  (or
+                                   wl-summary-partial-highlight-above-lines
+                                   wl-summary-highlight-partial-threshold)))
                    (wl-highlight-summary (point) (point-max)))
                (wl-highlight-summary (point-min) (point-max))))
          (if (null wl-summary-buffer-msgdb) ;; one more try.