X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-net.el;h=b8c857718b8a492eee71f15e905baa364f856725;hb=a717271e46f76079d48f9f976807cfaeeb0a3f85;hp=4ef87313acd9386881662d95122decf05a963f87;hpb=bd1c7daca8de303dd5766cb7831e964cfe3a03c5;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-net.el b/elmo/elmo-net.el
index 4ef8731..b8c8577 100644
--- a/elmo/elmo-net.el
+++ b/elmo/elmo-net.el
@@ -385,9 +385,7 @@ Returned value is searched from `elmo-network-stream-type-alist'."
 	 (elmo-delete-if
 	  (lambda (number) (memq number deleting))
 	  ;; current number-list.
-	  (mapcar
-	   'car
-	   (elmo-msgdb-get-number-alist (elmo-folder-msgdb folder))))
+	  (elmo-msgdb-list-messages (elmo-folder-msgdb folder)))
 	 ;; append appending messages
 	 (mapcar (lambda (x) (* -1 x))
 		 (elmo-dop-spool-folder-list-messages folder))))