Eliminate IMAP-FOLDER-N-MESSAGES in favor of FOLDER-LENGTH.

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index f2214a5fc915be9a30cd138ff745fafcb9f185a0..be978c44e2b835239270b564e9ff515890e27c41 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.171 2001/05/29 20:41:56 cph Exp $
+;;; $Id: imail-imap.scm,v 1.172 2001/05/29 20:46:28 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -774,7 +774,7 @@
                     n
                     (loop n/2))))))))
 
-;;; SET-IMAP-FOLDER-LENGTH! needs explanation.  There are two basic
+;;; UPDATE-IMAP-FOLDER-LENGTH! needs explanation.  There are two basic
 ;;; cases.
 
 ;;; In the first case, our folder is synchronized with the server,
@@ -800,7 +800,7 @@
 ;;; while reading.  If the read finishes, we can do the match/replace
 ;;; operation atomically.
 \f
-(define (set-imap-folder-length! folder count)
+(define (update-imap-folder-length! folder count)
   (with-interrupt-mask interrupt-mask/gc-ok
     (lambda (interrupt-mask)
       (if (or (imap-folder-messages-synchronized? folder)
@@ -1784,8 +1784,9 @@
        ((imap:response:exists? response)
         (with-imap-connection-folder connection
           (lambda (folder)
-            (set-imap-folder-length! folder
-                                     (imap:response:exists-count response))))
+            (update-imap-folder-length!
+             folder
+             (imap:response:exists-count response))))
         #f)
        ((imap:response:expunge? response)
         (with-imap-connection-folder connection

diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index eeb924e3e9ed27cf617ee82d51b06b230b861b59..2b80ae6a99dd89bd3db6f2558d61547053eb7f75 100644 (file)
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,5 +1,5 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.122 2001/05/27 05:04:24 cph Exp $
+$Id: todo.txt,v 1.123 2001/05/29 20:42:17 cph Exp $
 
 Bug fixes
 ---------
@@ -28,10 +28,6 @@ Bug fixes
   folder if it is open, then discard all the state, and finally
   reinitialize it to be a closed reference to the new URL.
 
-* In "imail-imap.scm", FOLDER-LENGTH is just an alias for
-  IMAP-FOLDER-N-MESSAGES.  Eliminate the latter procedure; it's just a
-  slot accessor.
-
 * When network connection gets wedged, Edwin locks up and can't be
   interrupted with C-g.  This is fundamentally an Edwin problem, but
   it occurs much more frequently with IMAIL.  See if there's a better