If EOF encountered while reading server response, signal an error.

This prevents the uninterruptible infinite loop when the network goes
down while the connection is open.

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 1b9c2ff6bf067eda0883c3e891b659be5c266f06..c001c4b5402b8eb69a68744e101416aa5d46609b 100644 (file)
--- a/v7/src/imail/imap-response.scm
+++ b/v7/src/imail/imap-response.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imap-response.scm,v 1.44 2001/10/10 04:26:43 cph Exp $
+;;; $Id: imap-response.scm,v 1.45 2002/03/26 03:46:53 cph Exp $
 ;;;
-;;; Copyright (c) 2000-2001 Massachusetts Institute of Technology
+;;; Copyright (c) 2000-2002 Massachusetts Institute of Technology
 ;;;
 ;;; This program is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU General Public License as
@@ -26,7 +26,7 @@
 (define (imap:read-server-response port)
   (let ((tag (read-string-internal char-set:space port)))
     (if (eof-object? tag)
-       tag
+       (error "IMAP server unexpectedly disconnected.")
        (let ((response
               (if (string=? "+" tag)
                   (cons 'CONTINUE (read-response-text port))