From cd7cfcfd6601cef9e4778330a9ef23fc8e28c103 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 May 2000 17:23:29 +0000
Subject: [PATCH] Fix off-by-one error.

---
 v7/src/imail/imail-imap.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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