From 0d501d1e2034959ac82d97e0d71a1c34d6c1e4b9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 May 2000 03:12:56 +0000
Subject: [PATCH] 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.

---
 v7/src/imail/imail-imap.scm | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

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)))
-- 
2.25.1