Fix thinkos in mailbox-decoding procedure.

diff --git a/v7/src/imail/imap-syntax.scm b/v7/src/imail/imap-syntax.scm
index 4667ba4443868c7c6226936a8d76ad6fbc0eba88..7670f6ce199a1e6f751636a565fbf498ca684c93 100644 (file)
--- 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))