From 7b804c5ccca457d8e2241ca2c5d309b1f53bcd64 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 3 Jul 2000 02:07:06 +0000
Subject: [PATCH] Tweak.

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

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