From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 May 2000 03:12:56 +0000 (+0000)
Subject: Don't remove IMAP connections from the memoized list when they are
X-Git-Tag: 20090517-FFI~3669
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0d501d1e2034959ac82d97e0d71a1c34d6c1e4b9;p=mit-scheme.git

Don't remove IMAP connections from the memoized list when they are
closed.  Each folder retains a pointer to its connection after closing
it, and may reopen the connection later.  When this happens, it
defeats the purpose of the memoization.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 5633ecbac..615542a97 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.93 2000/05/26 17:27:15 cph Exp $
+;;; $Id: imail-imap.scm,v 1.94 2000/05/28 03:12:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -381,14 +381,6 @@
 	  (lambda ()
 	    (let ((port (imap-connection-port connection)))
 	      (set-imap-connection-port! connection #f)
-	      (let loop ((connections memoized-imap-connections) (prev #f))
-		(if (weak-pair? connections)
-		    (let ((next (weak-cdr connections)))
-		      (if (eq? (weak-car connections) connection)
-			  (if prev
-			      (weak-set-cdr! prev next)
-			      (set! memoized-imap-connections next))
-			  (loop next connections)))))
 	      port)))))
     (if port
 	(close-port port)))