Use SEEN rather than UNSEEN as message flag in imail.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 7156095e8c2b16b7671cfc133fc48ada8f5577e0..8f11570d40720818028ed4e264255a50c56d10ef 100644 (file)
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.4 2000/01/13 22:14:48 cph Exp $
+;;; $Id: imail-core.scm,v 1.5 2000/01/14 17:04:03 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -369,8 +369,7 @@
       (error:wrong-type-argument object "message flag" procedure)))
 
 (define standard-message-flags
-  ;; **** Use SEEN rather than UNSEEN?
-  '(DELETED ANSWERED UNSEEN FILED FORWARDED EDITED RESENT))
+  '(DELETED ANSWERED SEEN FILED FORWARDED EDITED RESENT))
 
 (define (message-deleted? message)
   (message-flagged? message 'DELETED))

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index 3ddf68726158394ee1318f4a06ad0072d3fbd15d..6d6d7242d5f1def183bec93d06c750dbc01a8d00 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.3 2000/01/13 22:17:42 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.4 2000/01/14 17:03:57 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -376,10 +376,16 @@
                        (rmail-attribute->flag (car strings))
                        (rmail-label->flag (car strings)))
                    flags))
-       (reverse! flags))))
+       (reverse!
+        (if (memq 'UNSEEN flags)
+            (delq! 'UNSEEN flags)
+            (cons 'SEEN flags))))))
 
 (define (flags->rmail-markers flags)
-  (let loop ((flags flags) (attributes '()) (labels '()))
+  (let loop
+      ((flags (if (memq 'SEEN flags) (delq! 'SEEN flags) (cons 'UNSEEN flags)))
+       (attributes '())
+       (labels '()))
     (if (pair? flags)
        (if (flag-is-rmail-attribute? (car flags))
            (loop (cdr flags)