X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-imap4.el;h=82e8dbff2890a68c7d1211b029d3f660709b6be4;hb=824fe18b2ad090f609041a4af11de484bdb7e3a8;hp=0cc8e37afc0c25582f30c1289840b0872d68d8b5;hpb=e1aca9586e3b40cb9e143e8009f97bc786325f7a;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 0cc8e37..82e8dbf 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -821,16 +821,7 @@ FLAG is one of the `unread', `read', `important', `answered', `any'."
   (let ((session (elmo-imap4-get-session folder))
 	(criteria (elmo-imap4-flag-to-imap-criteria flag)))
     (if (elmo-imap4-session-flag-available-p session flag)
-	(progn
-	  (elmo-imap4-session-select-mailbox
-	   session
-	   (elmo-imap4-folder-mailbox-internal folder))
-	  (elmo-imap4-response-value
-	   (elmo-imap4-send-command-wait
-	    session
-	    (format (if elmo-imap4-use-uid "uid search %s"
-		      "search %s") criteria))
-	   'search))
+	(elmo-imap4-list folder criteria)
       ;; List flagged messages in the msgdb.
       (elmo-msgdb-list-flagged (elmo-folder-msgdb folder) flag))))