From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Jul 2000 03:25:35 +0000 (+0000)
Subject: Fix thinkos in mailbox-decoding procedure.
X-Git-Tag: 20090517-FFI~3386
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=891fcaf34fae2b05235b008500709d85e2d82410;p=mit-scheme.git

Fix thinkos in mailbox-decoding procedure.
---

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))