From b8f60a6c502bf307d08cbb52df3905e374e32c04 Mon Sep 17 00:00:00 2001 From: vitaly Date: Sun, 8 Feb 2009 14:05:57 +0100 Subject: [PATCH] Use elmo-imap4-list in elmo-imap4-folder-list-flagged elmo-imap4-folder-list-flagged duplicates functionality of elmo-imap4-list. Besides, elmo-imap4-list can use ESEARCH. Switch it to elmo-imap4-list. --- elmo/elmo-imap4.el | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 8a2ea19..76162af 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -857,16 +857,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)))) -- 2.11.4.GIT