From ada1fced44286129fff102dc282e8681ef1d71e0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Apr 2000 20:59:26 +0000
Subject: [PATCH] Fix bugs in IMAIL-READ-FLAG.

---
 v7/src/imail/imail-top.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index e4386d119..b18b63fd7 100644
--- 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?))
 
 ;;;; Message I/O
-- 
2.25.1