* elmo-imap4.el (elmo-imap4-mailbox-size-update-maybe): Build list of

  expunged messages only when response contains expunge.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 674de7d..4d5a082 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-17  David Maus  <dmaus@ictsoc.de>
+
+       * elmo-imap4.el (elmo-imap4-mailbox-size-update-maybe): Build list
+       of expunged messages only when response contains expunge.
+
 2010-04-16  David Maus  <dmaus@ictsoc.de>
 
        * elmo-imap4.el (luna-define-class): Add slot

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 3a0cd8f..91792a6 100644 (file)
--- 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)