Change UPDATE-IMAP-FOLDER-LENGTH! back to its original design.

The bug I was seeing had nothing to do with this code.

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 583d5de36e6759d5e52969a6769da3f4b573b2db..b36b6078cf2afe2de02a5c718fff09fb988f6b4e 100644 (file)
--- 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.183 2001/07/21 01:27:49 cph Exp $
+;;; $Id: imail-imap.scm,v 1.184 2001/07/21 03:53:36 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -940,13 +940,13 @@
                   (with-interrupt-mask interrupt-mask
                     (lambda (interrupt-mask)
                       interrupt-mask
-                      (read-message-headers! folder n))))
+                      (read-message-headers! folder n)))
+                  (object-modified! folder 'INCREASE-LENGTH n count))
                  ((= count n)
                   (set-imap-folder-messages-synchronized?! folder #t))
                  (else
                   (error "EXISTS response decreased folder length:"
-                         folder)))
-           (object-modified! folder 'SET-LENGTH n count))
+                         folder))))
          (begin
            (detach-all-messages! folder)
            (let ((v (imap-folder-messages folder))