From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 21 Jul 2001 03:53:36 +0000 (+0000)
Subject: Change UPDATE-IMAP-FOLDER-LENGTH! back to its original design.
X-Git-Tag: 20090517-FFI~2627
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a60f27928487518b8bdac99b62c9385ebe2f9088;p=mit-scheme.git

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 583d5de36..b36b6078c 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.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))