Additional optimization: load flags with UIDs in initial download.

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 9b7aeae4f485eee15070e4553e3ff26bf8828fdb..085ae6c51cd7b05974d6959acc61eb99b1e7f0ca 100644 (file)
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.141 2000/08/02 13:13:26 cph Exp $
+;;; $Id: imail-imap.scm,v 1.142 2000/08/02 13:15:27 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -652,7 +652,7 @@
       ((imail-ui:message-wrapper "Reading message UIDs")
        (lambda ()
         (imap:command:fetch-range (imap-folder-connection folder)
-                                  start #f '(UID))))))
+                                  start #f '(UID FLAGS))))))
 \f
 (define (remove-imap-folder-message folder index)
   (without-interrupts