From: okazaki <okazaki>
Date: Thu, 20 Aug 2009 20:51:32 +0000 (+0000)
Subject: 2009-05-26  Vitaly Mayatskikh <v.mayatskih@gmail.com>
X-Git-Tag: elmo-imap4-compliance-root~83
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=13b5fd7fd1144323043db3262aaa9f2f4165c9d8;p=elisp%2Fwanderlust.git

2009-05-26  Vitaly Mayatskikh <v.mayatskih@gmail.com>

	* elmo-imap4.el (elmo-imap4-folder-list-flagged): Use elmo-imap4-list
	(removed duplicated code)
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 1057b61..7aa1cf6 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -18,6 +18,9 @@
         * elmo-mime.el (elmo-mime-entity-display): Fix Emacs crash in
 	mime-view when displaying malformed base64 attach.
 
+	* elmo-imap4.el (elmo-imap4-folder-list-flagged): Use elmo-imap4-list
+	(removed duplicated code)
+
 	* modb-standard.el (modb-standard-cleanup-stale-entities): New
 	function, Remove stale entities from elmo's cache.
 
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))))