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 dd0d3f0581452392c5174d702ee4c73e13843074..19cc79f8655dfe842703418a40de9effaa392807 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.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)))