From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 3 Jul 2000 02:07:06 +0000 (+0000)
Subject: Tweak.
X-Git-Tag: 20090517-FFI~3400
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b804c5ccca457d8e2241ca2c5d309b1f53bcd64;p=mit-scheme.git

Tweak.
---

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 1a93f0cba..84c34dd4c 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.38 2000/07/03 02:06:35 cph Exp $
+;;; $Id: imap-response.scm,v 1.39 2000/07/03 02:07:06 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -80,7 +80,8 @@
   (read-list port read-flag))
 
 (define (read-list-response port)
-  (let ((flags (read-flags-response port)))
+  (discard-known-char #\space port)
+  (let ((flags (read-list port read-flag)))
     (discard-known-char #\space port)
     (let ((delim (read-nstring port)))
       (discard-known-char #\space port)