From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 24 Oct 2005 01:26:40 +0000 (+0000)
Subject: Fix bug #14361: IMAIL use of backslashes in symbol names was broken by
X-Git-Tag: 20090517-FFI~1208
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1b3335d9d027d4bc9a69d44576260a4045accc37;p=mit-scheme.git

Fix bug #14361: IMAIL use of backslashes in symbol names was broken by
change to reader syntax for symbols.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 2ebdb6171..04a175901 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: imail-imap.scm,v 1.203 2004/12/07 07:25:26 cph Exp $
+$Id: imail-imap.scm,v 1.204 2005/10/24 01:26:40 cph Exp $
 
-Copyright 1999,2000,2001,2003,2004 Massachusetts Institute of Technology
+Copyright 1999,2000,2001,2003,2004,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -379,11 +379,12 @@ USA.
 	     (let ((url (imap-url-new-mailbox url mailbox)))
 	       (set-imap-folder-url-list-time! url t)
 	       (set-imap-folder-url-exists?! url #t)
-	       (set-imap-folder-url-selectable?! url
-						 (not (memq '\NOSELECT flags)))
+	       (set-imap-folder-url-selectable?!
+		url
+		(not (memq '\\NOSELECT flags)))
 	       (set-imap-folder-url-corresponding-container!
 		url
-		(and (not (memq '\NOINFERIORS flags))
+		(and (not (memq '\\NOINFERIORS flags))
 		     (imap-url-new-mailbox url (string-append mailbox "/"))))
 	       url)))
 	 (with-open-imap-connection url
@@ -1048,10 +1049,7 @@ USA.
 	(intern flag))))
 
 (define standard-imap-flags
-  (map (lambda (s)
-	 (cons (intern (string-append "\\" s))
-	       s))
-       '("seen" "answered" "flagged" "deleted" "draft" "recent")))
+  '(\\SEEN \\ANSWERED \\FLAGGED \\DELETED \\DRAFT \\RECENT))
 
 (define-method message-internal-time ((message <imap-message>))
   (imap:response:fetch-attribute
@@ -2349,10 +2347,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)