From 74820b9345714e8b443787f8393d794365a3a60a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 26 Oct 2005 21:44:43 +0000
Subject: [PATCH] Fix thinko from previous change.

---
 v7/src/imail/imail-imap.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 04a175901..0eabac689 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-imap.scm,v 1.204 2005/10/24 01:26:40 cph Exp $
+$Id: imail-imap.scm,v 1.205 2005/10/26 21:44:43 cph Exp $
 
 Copyright 1999,2000,2001,2003,2004,2005 Massachusetts Institute of Technology
 
@@ -1049,7 +1049,10 @@ USA.
 	(intern flag))))
 
 (define standard-imap-flags
-  '(\\SEEN \\ANSWERED \\FLAGGED \\DELETED \\DRAFT \\RECENT))
+  (map (lambda (s)
+	 (cons (intern (string-append "\\" s))
+	       s))
+       '("seen" "answered" "flagged" "deleted" "draft" "recent")))
 
 (define-method message-internal-time ((message <imap-message>))
   (imap:response:fetch-attribute
-- 
2.25.1