From 13b5fd7fd1144323043db3262aaa9f2f4165c9d8 Mon Sep 17 00:00:00 2001 From: okazaki Date: Thu, 20 Aug 2009 20:51:32 +0000 Subject: [PATCH] 2009-05-26 Vitaly Mayatskikh * elmo-imap4.el (elmo-imap4-folder-list-flagged): Use elmo-imap4-list (removed duplicated code) --- elmo/ChangeLog | 3 +++ elmo/elmo-imap4.el | 11 +---------- 2 files changed, 4 insertions(+), 10 deletions(-) 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)))) -- 1.7.10.4