From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Mar 2017 07:37:19 +0000 (-0800)
Subject: Fix symbols using now-illegal syntax.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~100
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7cd27d4b09055ba8513fddcc76fa3a37b83abc5c;p=mit-scheme.git

Fix symbols using now-illegal syntax.
---

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index 36401f77c..57613456f 100644
--- a/src/imail/imail-imap.scm
+++ b/src/imail/imail-imap.scm
@@ -401,8 +401,8 @@ USA.
 	       mailbox)))
 	(flags (imap:response:list-flags response)))
     (let ((url (imap-url-new-mailbox url mailbox))
-	  (noselect? (memq '\\NOSELECT flags))
-	  (noinferiors? (memq '\\NOINFERIORS flags)))
+	  (noselect? (memq '|\\NOSELECT| flags))
+	  (noinferiors? (memq '|\\NOINFERIORS| flags)))
       (if (and noselect? noinferiors?)
 	  #f				;Completely uninteresting.
 	  (receive (folder-url container-url)
@@ -2771,10 +2771,10 @@ USA.
 	     (let ((pflags (imap:response-code:permanentflags code)))
 	       (set-imap-folder-permanent-keywords?!
 		folder
-		(if (memq '\\* pflags) #t #f))
+		(if (memq '|\\*| pflags) #t #f))
 	       (set-imap-folder-permanent-flags!
 		folder
-		(map imap-flag->imail-flag (delq '\\* pflags)))))))
+		(map imap-flag->imail-flag (delq '|\\*| pflags)))))))
 	((imap:response-code:read-only? code)
 	 (with-imap-connection-folder connection
 	   (lambda (folder)