From f927f0cb116eaaba22c422aeb14f0c6d93cb7757 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 May 2000 20:28:03 +0000
Subject: [PATCH] Fix thinko; eliminate IMAP-CONNECTION-OPEN?.

---
 v7/src/imail/imail-imap.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index b6ca85b1c..2399fe65c 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.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)
-- 
2.25.1