From 7cd27d4b09055ba8513fddcc76fa3a37b83abc5c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 9 Mar 2017 23:37:19 -0800 Subject: [PATCH] Fix symbols using now-illegal syntax. --- src/imail/imail-imap.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.25.1