From d2d21794a2c5e286ddbd7909225dc5bfec0c2e8b Mon Sep 17 00:00:00 2001 From: hmurata Date: Fri, 18 Jul 2003 08:50:27 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-prefetch-region-no-mark): Update persistent mark when prefetch is succeeded. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 17 ++++++++++------- 2 files changed, 15 insertions(+), 7 deletions(-) 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 + + * wl-summary.el (wl-summary-prefetch-region-no-mark): Update + persistent mark when prefetch is succeeded. + 2003-07-17 Yuuichi Teranishi * 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))))) -- 1.7.10.4