From: dmaus <dmaus>
Date: Sat, 17 Apr 2010 12:36:14 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-mailbox-size-update-maybe): Build list of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c37f8277bffc5023fd10592d33c6a90c2f8a24ac;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)