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 b9d2a3d378692cb55ed5334913f60df2f73d5568..0ea9c3368c63619b8c433f9811b78fb411b334bf 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.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