From ff4cc42c1c137e85cb705a44afcd7521111ce81c Mon Sep 17 00:00:00 2001 From: Chris Hanson 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