From ff4cc42c1c137e85cb705a44afcd7521111ce81c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 28 Oct 2000 03:33:36 +0000
Subject: [PATCH] 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.
---
v7/src/imail/imail-summary.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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))))
--
2.25.1