From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 2000 02:43:49 +0000 (+0000)
Subject: Fix bug: READ-PFLAG was only reading flags that started with "\\".
X-Git-Tag: 20090517-FFI~3808
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d2fd9fa775aaee7f39bdb81344c8ccaaf1ea2507;p=mit-scheme.git

Fix bug: READ-PFLAG was only reading flags that started with "\\".
---

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index b9d2a3d37..0ea9c3368 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.20 2000/05/19 02:42:58 cph Exp $
+;;; $Id: imap-response.scm,v 1.21 2000/05/19 02:43:49 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -355,13 +355,16 @@
     s))
 
 (define (read-pflag port)
-  (discard-known-char #\\ port)
   (intern
-   (if (char=? #\* (peek-char-no-eof port))
+   (if (char=? #\\ (peek-char-no-eof port))
        (begin
 	 (discard-char port)
-	 "\\*")
-       (string-append "\\" (read-atom port)))))
+	 (if (char=? #\* (peek-char-no-eof port))
+	     (begin
+	       (discard-char port)
+	       "\\*")
+	     (string-append "\\" (read-atom port))))
+       (read-atom port))))
 
 (define (read-flag port)
   (intern