Fix symbols using now-illegal syntax.

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index 36401f77c971289b93fa74501513a43c71a24973..57613456f1ccf532bbdf98cc020bb44a14c96aa2 100644 (file)
--- 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)