From: hmurata <hmurata>
Date: Fri, 18 Jul 2003 08:50:27 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-prefetch-region-no-mark): Update
X-Git-Tag: elmo-mark-restart~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d2d21794a2c5e286ddbd7909225dc5bfec0c2e8b;p=elisp%2Fwanderlust.git

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