From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 20 Oct 2000 02:14:59 +0000 (+0000)
Subject: Fix bug: FLAGS->RMAIL-MARKERS was clobbering its argument to remove
X-Git-Tag: 20090517-FFI~3240
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5d92aac9a6d08ccb2a7dfdcabf0ee3c5404aa15b;p=mit-scheme.git

Fix bug: FLAGS->RMAIL-MARKERS was clobbering its argument to remove
the "seen" flag.  This caused messages to be marked "unseen" when they
were written to an RMAIL file.
---

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index 360103a61..bc785cf51 100644
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.51 2000/10/20 00:44:31 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.52 2000/10/20 02:14:59 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -301,7 +301,7 @@
   (let loop
       ((flags
 	(if (flags-member? "seen" flags)
-	    (flags-delete! "seen" flags)
+	    (flags-delete "seen" flags)
 	    (cons "unseen" flags)))
        (attributes '())
        (labels '()))