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 5633ecbacaeddfa13371ffd654153bbfa3828c0e..615542a97df23ad91dcc44510a7e851ab72ea110 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.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)))