Fix bugs in IMAIL-READ-FLAG.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index e4386d1195541c613928fbcdb46fbec6c0308561..b18b63fd74dd04b03c8717000e0e1706d6f23cf6 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.18 2000/04/07 20:45:55 cph Exp $
+;;; $Id: imail-top.scm,v 1.19 2000/04/07 20:59:26 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -606,11 +606,11 @@ Completion is performed over known flags when reading."
    prompt #f
    (alist->string-table
     (map list
-        (append standard-message-flags
-                (folder-flags (selected-folder)))))
+        (remove-duplicates (append standard-message-flags
+                                   (folder-flags (selected-folder)))
+                           string=?)))
    'DEFAULT-TYPE 'INSERTED-DEFAULT
    'HISTORY 'IMAIL-READ-FLAG
-   'HISTORY-INDEX 0
    'REQUIRE-MATCH? require-match?))
 \f
 ;;;; Message I/O