From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 May 2000 20:45:58 +0000 (+0000)
Subject: Fix overlong page.
X-Git-Tag: 20090517-FFI~3894
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=97c8fbf0af3cc830c12cc35b65cd4fc6d8b927b2;p=mit-scheme.git

Fix overlong page.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 8f1611f05..28ba6d42c 100644
--- 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.28 2000/05/10 20:39:33 cph Exp $
+;;; $Id: imail-imap.scm,v 1.29 2000/05/10 20:45:58 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -412,8 +412,7 @@
 		  (cons v n))))))
 	((imail-message-wrapper "Reading message UIDs")
 	 (lambda ()
-	   (imap:command:fetch-range (imap-folder-connection folder) 0 count
-				     '(UID))))
+	   (imap:command:fetch-all (imap-folder-connection folder) '(UID))))
 	(without-interrupts
 	 (lambda ()
 	   (let ((v* (imap-folder-messages folder))
@@ -624,6 +623,12 @@
   (imap:command:single-response imap:response:fetch?
 				connection 'FETCH (+ index 1) items))
 
+(define (imap:command:fetch-all connection items)
+  (imap:command:multiple-response imap:response:fetch?
+				  connection 'FETCH
+				  (cons 'ATOM "1:*")
+				  items))
+
 (define (imap:command:fetch-range connection start end items)
   (if (< start end)
       (imap:command:multiple-response imap:response:fetch?