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 360103a61ef21b209aa91ef6a4e1cb1204282ce4..bc785cf5143e15ae30a6a32fdadf487e6dda4cec 100644 (file)
--- 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 '()))