From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Nov 2000 06:02:28 +0000 (+0000)
Subject: Add workaround for bug in Courier-IMAP.
X-Git-Tag: 20090517-FFI~3192
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=778d8b612ddb6c8c3333458336e1a9a7e528c80a;p=mit-scheme.git

Add workaround for bug in Courier-IMAP.
---

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 5781e9786..40c200572 100644
--- a/v7/src/imail/imap-response.scm
+++ b/v7/src/imail/imap-response.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imap-response.scm,v 1.41 2000/07/03 03:37:27 cph Exp $
+;;; $Id: imap-response.scm,v 1.42 2000/11/26 06:02:28 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -166,7 +166,10 @@
 			  (list (read-resp-text-tail port)))
 			'())))))))
     (discard-known-char #\] port)
-    (discard-known-char #\space port)
+    ;; Work around a bug in Courier-IMAP; the #\space character is
+    ;; required here, but Courier-IMAP doesn't send it.
+    (if (not (char=? #\return (peek-char-no-eof port)))
+	(discard-known-char #\space port))
     code))
 
 (define (read-fetch-response port)