From d6b105c9557717af69ee5fa7bd68876a19784595 Mon Sep 17 00:00:00 2001 From: vitaly Date: Wed, 25 Mar 2009 09:17:28 +0100 Subject: [PATCH] Fix list-messages for new folder Newly added folders don't have any info yet, take that in count. --- elmo/elmo-imap4.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index d1b6c21..23d4d31 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -2004,14 +2004,14 @@ Return nil if no complete line has arrived." (let* ((old (elmo-msgdb-list-messages (elmo-folder-msgdb folder))) (new (elmo-imap4-folder-list-range folder - (1+ (elmo-folder-get-info-max folder)) "*")) + (1+ (or (elmo-folder-get-info-max folder) 0)) "*")) (united-old-new (elmo-union old new))) - (if (= (length united-old-new) (elmo-folder-get-info-length folder)) + (if (= (length united-old-new) (or (elmo-folder-get-info-length folder) 0)) united-old-new (elmo-union new (elmo-imap4-folder-list-range folder - 1 (1+ (elmo-folder-get-info-max folder))))))) + 1 (1+ (or (elmo-folder-get-info-max folder) 0))))))) (luna-define-method elmo-folder-list-flagged-plugged ((folder elmo-imap4-folder) flag) -- 2.11.4.GIT