* wl-summary.el (wl-summary-prefetch-region-no-mark): Update

persistent mark when prefetch is succeeded.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 331212c..a2bcb4b 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-summary.el (wl-summary-prefetch-region-no-mark): Update
+       persistent mark when prefetch is succeeded.
+
 2003-07-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-expire.el (wl-expire-delete): Use elmo-folder-detach-messages

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 3f0975f..0490c78 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1478,13 +1478,16 @@ If ARG is non-nil, checking is omitted."
              (message "Prefetching... %d/%d message(s)"
                       (setq count (+ 1 count)) length))
          ;; redisplay!
-         (save-excursion
-           (setq pos (point))
-           (goto-char start-pos)
-           (if (pos-visible-in-window-p pos)
-               (save-restriction
-                 (widen)
-                 (sit-for 0))))
+         (when mark
+           (save-excursion
+             (setq pos (point))
+             (when (wl-summary-jump-to-msg (car targets))
+               (wl-summary-update-mark (car targets)))
+             (goto-char start-pos)
+             (if (pos-visible-in-window-p pos)
+                 (save-restriction
+                   (widen)
+                   (sit-for 0)))))
          (setq targets (cdr targets)))
        (message "Prefetched %d/%d message(s)" count length)
        (cons count length)))))