From 891fcaf34fae2b05235b008500709d85e2d82410 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Jul 2000 03:25:35 +0000
Subject: [PATCH] Fix thinkos in mailbox-decoding procedure.

---
 v7/src/imail/imap-syntax.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/imail/imap-syntax.scm b/v7/src/imail/imap-syntax.scm
index 4667ba444..7670f6ce1 100644
--- a/v7/src/imail/imap-syntax.scm
+++ b/v7/src/imail/imap-syntax.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imap-syntax.scm,v 1.15 2000/07/05 01:23:05 cph Exp $
+;;; $Id: imap-syntax.scm,v 1.16 2000/07/05 03:25:35 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -415,8 +415,8 @@
 						    #\-)))
 		     (if (not index*) (lose))
 		     (loop (fix:+ index* 1)
-			   (fix:+ n
-				  (let ((m (fix:- index* index)))
+			   (fix:+ (fix:+ n (fix:- index start))
+				  (let ((m (fix:- index* (fix:+ index 1))))
 				    (if (fix:= m 1)
 					1
 					(let ((q (fix:quotient m 4))
-- 
2.25.1