From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 28 Oct 2000 03:33:36 +0000 (+0000)
Subject: Fix fencepost error that caused the wrong number of columns to be
X-Git-Tag: 20090517-FFI~3204
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff4cc42c1c137e85cb705a44afcd7521111ce81c;p=mit-scheme.git

Fix fencepost error that caused the wrong number of columns to be
allocated for the message number when the folder was exactly a power
of ten.
---

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index 483b575ec..42e54e711 100644
--- a/v7/src/imail/imail-summary.scm
+++ b/v7/src/imail/imail-summary.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-summary.scm,v 1.32 2000/10/27 03:18:44 cph Exp $
+;;; $Id: imail-summary.scm,v 1.33 2000/10/28 03:33:36 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -250,7 +250,7 @@ SUBJECT is a string of regexps separated by commas."
 	     (if (< i end)
 		 (loop (+ i 1) (cons (get-message folder i) messages))
 		 (reverse! messages))))
-	  (index-digits (exact-nonnegative-integer-digits (- end 1)))
+	  (index-digits (exact-nonnegative-integer-digits end))
 	  (show-date? (ref-variable imail-summary-show-date buffer))
 	  (subject-width (imail-summary-subject-width buffer)))
       (let ((mark (mark-left-inserting-copy (buffer-start buffer))))