From f1593ace2a935cb62f92d8b97248f7527949c162 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Mar 2002 03:46:53 +0000
Subject: [PATCH] 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.

---
 v7/src/imail/imap-response.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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))
-- 
2.25.1