* wl-summary.el (wl-summary-prefetch-msg): If mark is changed,

count and update status.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e8e5750..cdd0de9 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-summary.el (wl-summary-prefetch-msg): If mark is changed,
+       count and update status.
+
 2002-09-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-redisplay-internal): If

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index ae7a442..900a169 100644 (file)
--- 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)