From 59be50650cc9ac21bd1a8f886b5bdc3297f99542 Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 26 Sep 2002 03:46:49 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-prefetch-msg): If mark is changed, count and update status. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 14 ++++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index e8e5750..cdd0de9 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-09-26 Hiroya Murata + + * wl-summary.el (wl-summary-prefetch-msg): If mark is changed, + count and update status. + 2002-09-24 Yuuichi Teranishi * wl-summary.el (wl-summary-redisplay-internal): If diff --git a/wl/wl-summary.el b/wl/wl-summary.el index ae7a442..900a169 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -1412,7 +1412,7 @@ If ARG is non-nil, checking is omitted." "??")))))) " ]") size)))) (message "")) ; flush. - (setq mark (elmo-msgdb-get-mark msgdb number)) + (setq mark (or (elmo-msgdb-get-mark msgdb number) " ")) (if force-read (save-excursion (save-match-data @@ -1427,11 +1427,13 @@ If ARG is non-nil, checking is omitted." (or (elmo-message-mark wl-summary-buffer-elmo-folder number) " ")) - (wl-summary-update-modeline) - (wl-folder-update-unread - (wl-summary-buffer-folder-name) - (+ wl-summary-buffer-unread-count - wl-summary-buffer-new-count))) + (unless (string= new-mark mark) + (wl-summary-count-unread) + (wl-summary-update-modeline) + (wl-folder-update-unread + (wl-summary-buffer-folder-name) + (+ wl-summary-buffer-unread-count + wl-summary-buffer-new-count)))) new-mark))))))) (defun wl-summary-prefetch-region (beg end &optional prefetch-marks) -- 1.7.10.4