From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 30 May 2000 21:01:33 +0000 (+0000)
Subject: When showing progress meter, don't show percentage when amount read is
X-Git-Tag: 20090517-FFI~3656
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ad8206864f98d0f15aa47f90d550aaca3693b449;p=mit-scheme.git

When showing progress meter, don't show percentage when amount read is
either zero or the total amount.  This causes the display to flicker
and provides no useful information.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index ebe5238ae..7887c1caf 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.113 2000/05/30 20:21:33 cph Exp $
+;;; $Id: imail-top.scm,v 1.114 2000/05/30 21:01:33 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -257,7 +257,7 @@ regardless of the folder type."
 	  v)))))
 
 (define (imail-progress-meter current total)
-  (if (and *imail-message-wrapper-prefix* (<= 0 current total))
+  (if (and *imail-message-wrapper-prefix* (< 0 current total))
       (message *imail-message-wrapper-prefix*
 	       (string-pad-left
 		(number->string (round->exact (* (/ current total) 100)))