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