From d2fd9fa775aaee7f39bdb81344c8ccaaf1ea2507 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 2000 02:43:49 +0000
Subject: [PATCH] Fix bug: READ-PFLAG was only reading flags that started with
 "\\".

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

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