From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 5 Jun 2000 18:29:16 +0000 (+0000)
Subject: Fix bug: a couple of places explicitly referenced the flag "\\recent"
X-Git-Tag: 20090517-FFI~3605
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=84ffd8c092eb98129af51531280db83cab231de5;p=mit-scheme.git

Fix bug: a couple of places explicitly referenced the flag "\\recent"
which was changed to "recent".
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 6d3020fe5..c9a60be76 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.109 2000/06/05 18:20:38 cph Exp $
+;;; $Id: imail-imap.scm,v 1.110 2000/06/05 18:29:16 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -663,7 +663,7 @@
       (imap:command:uid-store-flags connection
 				    (imap-message-uid message)
 				    (map imail-flag->imap-flag
-					 (flags-delete "\\recent" flags))))))
+					 (flags-delete "recent" flags))))))
 
 (define (imap-flag->imail-flag flag)
   (let ((entry (assq flag standard-imap-flags)))
@@ -1063,7 +1063,7 @@
 				     (imap-url-mailbox url)
 				     (map imail-flag->imap-flag
 					  (flags-delete
-					   "\\recent"
+					   "recent"
 					   (message-flags message)))
 				     (message-internal-time message)
 				     (message->string message)))))))))