From 778d8b612ddb6c8c3333458336e1a9a7e528c80a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Nov 2000 06:02:28 +0000
Subject: [PATCH] Add workaround for bug in Courier-IMAP.

---
 v7/src/imail/imap-response.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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