From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 3 Jul 2000 02:03:11 +0000 (+0000)
Subject: Fix two typos in READ-SET.
X-Git-Tag: 20090517-FFI~3402
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=96cd9df868e4d78278e8c55a9ede96b6ba721235;p=mit-scheme.git

Fix two typos in READ-SET.
---

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 81ae62d6b..a488a70e0 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.36 2000/06/30 19:05:49 cph Exp $
+;;; $Id: imap-response.scm,v 1.37 2000/07/03 02:03:11 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -517,7 +517,7 @@
 (define read-set
   (let ((read-string
 	 (non-null-string-reader
-	  (char-set-union char-set:numeric (char-set #\: #\,)))))
+	  (char-set-union char-set:numeric (char-set #\: #\, #\*)))))
     (lambda (port)
       (let ((string (read-string port)))
 	(let ((lose
@@ -536,7 +536,7 @@
 			       (cons (seqnum 0 index)
 				     (seqnum (fix:+ index 1) length))))
 			 (else (seqnum 0 length)))))
-	       (burst-string string #\: #f)))))))
+	       (burst-string string #\, #f)))))))
 
 (define char-set:space
   (char-set #\space))