From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 May 2000 20:48:59 +0000 (+0000)
Subject: In SET-IMAP-FOLDER-LENGTH!, when there are no messages in a folder, it
X-Git-Tag: 20090517-FFI~3903
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=01c9db44fa1e129da2ac6335cda9edd5a237a6fa;p=mit-scheme.git

In SET-IMAP-FOLDER-LENGTH!, when there are no messages in a folder, it
can be treated using the same strategy as when the folder is
synchronized.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 596dc9373..506d7bbcf 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.22 2000/05/08 20:38:12 cph Exp $
+;;; $Id: imail-imap.scm,v 1.23 2000/05/08 20:48:59 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -334,7 +334,8 @@
 ;;; operation atomically.
 
 (define (set-imap-folder-length! folder count)
-  (if (imap-folder-messages-synchronized? folder)
+  (if (or (imap-folder-messages-synchronized? folder)
+	  (= 0 (imap-folder-n-messages folder)))
       (read-message-headers!
        folder
        (without-interrupts