From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Mar 2002 03:46:53 +0000 (+0000)
Subject: If EOF encountered while reading server response, signal an error.
X-Git-Tag: 20090517-FFI~2192
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f1593ace2a935cb62f92d8b97248f7527949c162;p=mit-scheme.git

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 1b9c2ff6b..c001c4b54 100644
--- 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))