From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 May 2000 17:23:29 +0000 (+0000)
Subject: Fix off-by-one error.
X-Git-Tag: 20090517-FFI~3898
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cd7cfcfd6601cef9e4778330a9ef23fc8e28c103;p=mit-scheme.git

Fix off-by-one error.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 85f88d9fc..14fe0b435 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.26 2000/05/10 17:05:24 cph Exp $
+;;; $Id: imail-imap.scm,v 1.27 2000/05/10 17:23:29 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -593,7 +593,7 @@
       '()))
 
 (define (imap:command:store-flags connection index flags)
-  (imap:command:no-response connection 'STORE index 'FLAGS flags))
+  (imap:command:no-response connection 'STORE (+ index 1) 'FLAGS flags))
 
 (define (imap:command:expunge connection)
   ((imail-message-wrapper "Expunging messages")