From: Vitaly Mayatskikh <v.mayatskih@gmail.com>
Date: Fri, 22 May 2009 16:19:55 +0000 (+0200)
Subject: Update message count on command "select <folder>"
X-Git-Url: https://repo.or.cz/w/more-wl.git/commitdiff_plain/73df620e2e740f3cc9cf38d48eab9075b106bfd3

Update message count on command "select <folder>"

Partial update needs to know actual message count, it doesn't
have this info at the moment of execution. Command "select" on folder
enter returns message count in EXISTS fields. Update folder info with
this counter to allow partial update to work.
---

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 23d4d31..f9a111f 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2571,6 +2571,9 @@ If optional argument REMOVE is non-nil, remove FLAG."
 				(setq response
 				      (elmo-imap4-read-response session tag))))
 		  (progn
+		    (let ((exists (assq 'exists response))) ; update message count,
+		      (when exists			    ; so merge update can go
+			(elmo-folder-set-info-hashtb folder nil (cadr exists))))
 		    (elmo-imap4-session-set-current-mailbox-internal
 		     session mailbox)
 		    (elmo-imap4-session-set-read-only-internal