Fix thinko; eliminate IMAP-CONNECTION-OPEN?.

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index b6ca85b1cefdd700da13611fd97ae73d769bfed6..2399fe65c612c913e46b068291ec62bb1917909a 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.75 2000/05/22 20:22:39 cph Exp $
+;;; $Id: imail-imap.scm,v 1.76 2000/05/22 20:28:03 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -363,9 +363,6 @@
        (close-port port)))
   (reset-imap-connection connection))
 
-(define (imap-connection-open? connection)
-  (imap-connection-port connection))
-
 (define (imap-connection-server-type connection)
   (let ((greeting (imap-connection-greeting connection)))
     (cond ((not (string? greeting)) #f)
@@ -805,8 +802,9 @@
          #t))))
 
 (define-method %close-folder ((folder <imap-folder>))
-  (maybe-close-imap-connection (imap-folder-connection folder))
-  (set-imap-connection-folder! connection #f))
+  (let ((connection (imap-folder-connection folder)))
+    (maybe-close-imap-connection connection)
+    (set-imap-connection-folder! connection #f)))
 
 (define-method folder-length ((folder <imap-folder>))
   (guarantee-imap-folder-open folder)