From: teranisi <teranisi>
Date: Tue, 22 Jul 2003 15:20:55 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-rescan): Use numbers in the msgdb.
X-Git-Tag: elmo-mark-restart~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ca40ff1485608c6c253dc99e7b58dff0df003d89;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-rescan): Use numbers in the msgdb.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4c3e531..042e5bc 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,7 @@
 2003-07-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-summary.el (wl-summary-rescan): Use numbers in the msgdb.
+
 	* wl-score.el (wl-summary-score-update-all-lines): Use
 	wl-summary-set-mark.
 	(wl-summary-score-update-all-lines): Kill expunged messages.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 6821cdf..62441f8 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -938,16 +938,16 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 	curp
 	(inhibit-read-only t)
 	(buffer-read-only nil)
-	numbers expunged)
+	(numbers (elmo-folder-list-messages wl-summary-buffer-elmo-folder
+					    nil t)) ; in-msgdb
+	expunged)
     (erase-buffer)
     (message "Re-scanning...")
     (setq i 0)
-    (setq num (length wl-summary-buffer-number-list))
-    (setq numbers wl-summary-buffer-number-list)
     (when sort-by
       (message "Sorting by %s..." sort-by)
       (setq numbers
-	    (sort wl-summary-buffer-number-list
+	    (sort numbers
 		  (lambda (x y)
 		    (funcall
 		     (intern (format "wl-summary-overview-entity-compare-by-%s"
@@ -955,6 +955,7 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 		     (elmo-message-entity wl-summary-buffer-elmo-folder x)
 		     (elmo-message-entity wl-summary-buffer-elmo-folder y)))))
       (message "Sorting by %s...done" sort-by))
+    (setq num (length numbers))
     (setq wl-thread-entity-hashtb (elmo-make-hash (* num 2))
 	  wl-thread-entity-list nil
 	  wl-thread-entities nil