From c37f8277bffc5023fd10592d33c6a90c2f8a24ac Mon Sep 17 00:00:00 2001 From: dmaus Date: Sat, 17 Apr 2010 12:36:14 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-mailbox-size-update-maybe): Build list of expunged messages only when response contains expunge. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 674de7d..4d5a082 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2010-04-17 David Maus + + * elmo-imap4.el (elmo-imap4-mailbox-size-update-maybe): Build list + of expunged messages only when response contains expunge. + 2010-04-16 David Maus * elmo-imap4.el (luna-define-class): Add slot diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 3a0cd8f..91792a6 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -285,10 +285,11 @@ Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"") "Update size of selected mailbox in SESSION according to RESPONSE." (let ((exists (elmo-imap4-response-value response 'exists)) (recent (elmo-imap4-response-value response 'recent)) - (expunge (delq nil (mapcar '(lambda (r) - (if (eq (car r) 'expunge) - (cadr r))) - response))) + (expunge (if (assq 'expunge response) + (delq nil (mapcar '(lambda (r) + (if (eq (car r) 'expunge) + (cadr r))) + response)))) (current-size (or (elmo-imap4-session-current-mailbox-size-internal session) (cons nil nil)))) (when (or expunge exists recent) -- 1.7.10.4