From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 May 2000 22:40:09 +0000 (+0000)
Subject: Fix bug: don't signal an error when reading BYE message.
X-Git-Tag: 20090517-FFI~3730
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=649d66e3139a17ef1e542b90f7a46d64e550456f;p=mit-scheme.git

Fix bug: don't signal an error when reading BYE message.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index dd0d3f058..19cc79f86 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.77 2000/05/22 20:50:37 cph Exp $
+;;; $Id: imail-imap.scm,v 1.78 2000/05/22 22:40:09 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1123,7 +1123,7 @@
 	   (if code
 	       (process-response-text connection command code text))
 	   (if (and (imap:response:bye? response)
-		    (not (eq? command 'LOGOUT)))
+		    (not (memq command '(LOGOUT #F))))
 	       (begin
 		 (close-imap-connection connection)
 		 (error "Server shut down connection:" text)))