From: hmurata <hmurata>
Date: Thu, 26 Sep 2002 03:46:49 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-prefetch-msg): If mark is changed,
X-Git-Tag: elmo-mark-restart~116
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=59be50650cc9ac21bd1a8f886b5bdc3297f99542;p=elisp%2Fwanderlust.git

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