From c7fb924982784c6e5b12c47e6158eee2e1a880b7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 20 Sep 2006 02:14:58 +0000 Subject: [PATCH] catch unexpected EOF in IMAP client svn: r4392 --- collects/net/imap-unit.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.ss index 27a6002365..a6c6978467 100644 --- a/collects/net/imap-unit.ss +++ b/collects/net/imap-unit.ss @@ -150,6 +150,8 @@ (let ([l (read-bytes-line r eol)]) (log "raw-reply: ~s~n" l) (cond + [(eof-object? l) + (error 'imap-send "unexpected end-of-file from server")] [(and id (starts-with? l id)) (let ([reply (imap-read (skip l id) r)]) (log "response: ~a~n" reply)