Don't show "seen" in message flags.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 1d4dc56045271d3ce11d40eef4f7715b800cb720..a196f95bc1372e36955cccc9aa409d706c4719e1 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.39 2000/05/04 17:40:01 cph Exp $
+;;; $Id: imail-core.scm,v 1.40 2000/05/04 18:52:52 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -484,6 +484,7 @@
 
 (define flags-member? (member-procedure string-ci=?))
 (define flags-add (add-member-procedure string-ci=?))
+(define flags-delete (delete-member-procedure list-deletor string-ci=?))
 (define flags-delete! (delete-member-procedure list-deletor! string-ci=?))
 
 (define (message-flag? object)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 94aadbdd4b67f362af62b79c0a3d2d2fb4174b8d..3ecdc7392bbeb0b291165bb010df738c6bd0d6ef 100644 (file)
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.31 2000/05/04 18:47:18 cph Exp $
+;;; $Id: imail-top.scm,v 1.32 2000/05/04 18:52:30 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -26,10 +26,6 @@
 ;;; * Try to leverage IMAP MIME parser by building compatible
 ;;;   interface for file-based folders.
 ;;;
-;;; * Hook in code to automatically re-open IMAP connections.
-;;;
-;;; * Mark messages as "seen", etc.
-;;;
 ;;; * Build generic message cache?  Need to figure out when cached
 ;;;   info can be deleted.
 
@@ -292,20 +288,6 @@ DEL        Scroll to previous screen of this message.
 (define (imail-kill-buffer buffer)
   (imail-close-buffer-folder buffer))
 
-(define-command imail-quit
-  "Quit out of IMAIL."
-  ()
-  (lambda ()
-    ((ref-command imail-save-folder))
-    (imail-close-buffer-folder (selected-buffer))
-    ((ref-command bury-buffer))))
-
-(define-command imail-save-folder
-  "Save the currently selected IMAIL folder."
-  ()
-  (lambda ()
-    (save-folder (selected-folder))))
-
 (define (imail-close-buffer-folder buffer)
   (let ((folder (selected-folder #f buffer)))
     (if folder
@@ -488,19 +470,15 @@ With prefix argument N moves backward N messages with these flags."
   (let ((message (selected-message #f buffer)))
     (and message
         (let ((folder (message-folder message))
-              (index (message-index message))
-              (flags (message-flags message)))
+              (index (message-index message)))
           (if (and folder index)
-              (let ((line
-                     (string-append
-                      " "
-                      (number->string (+ 1 index))
-                      "/"
-                      (number->string (folder-length folder)))))
-                (if (pair? flags)
-                    (string-append line ","
-                                   (decorated-string-append "" "," "" flags))
-                    line))
+              (string-append " "
+                             (number->string (+ 1 index))
+                             "/"
+                             (number->string (folder-length folder))
+                             (decorated-string-append
+                              "," "" ""
+                              (flags-delete "seen" (message-flags message))))
               " 0/0")))))
 
 (define (maybe-reformat-headers message buffer)
@@ -806,6 +784,20 @@ While composing the reply, use \\[mail-yank-original] to yank the
 \f
 ;;;; Miscellany
 
+(define-command imail-quit
+  "Quit out of IMAIL."
+  ()
+  (lambda ()
+    ((ref-command imail-save-folder))
+    (imail-close-buffer-folder (selected-buffer))
+    ((ref-command bury-buffer))))
+
+(define-command imail-save-folder
+  "Save the currently selected IMAIL folder."
+  ()
+  (lambda ()
+    (save-folder (selected-folder))))
+
 (define-command imail-toggle-header
   "Show full message headers if pruned headers currently shown, or vice versa."
   ()