Fix two typos in READ-SET.

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 81ae62d6b8a74073c9e72b7fec8dffb62ca7c591..a488a70e0124f78c9f54d4fbd0560caeddbe615d 100644 (file)
--- 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)))))))
 \f
 (define char-set:space
   (char-set #\space))