From 9a54169abbf180b4e424d4a997bec8802d919ff8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 May 2001 20:46:28 +0000
Subject: [PATCH] Eliminate IMAP-FOLDER-N-MESSAGES in favor of FOLDER-LENGTH.

---
 v7/src/imail/imail-imap.scm | 11 ++++++-----
 v7/src/imail/todo.txt       |  6 +-----
 2 files changed, 7 insertions(+), 10 deletions(-)

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index f2214a5fc..be978c44e 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.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.
 
-(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 eeb924e3e..2b80ae6a9 100644
--- 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
-- 
2.25.1