From 2929914a7ee1b85eef4953730f53daa18027566e Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Sat, 10 Mar 2007 17:35:57 +0000
Subject: [PATCH] Use %MESSAGE-INDEX instead of MESSAGE-INDEX in
 FETCH-MESSAGE-ITEMS. This will give the correct index in the mailbox's
 sequence to the IMAP server, and if the folder is sorted it will also not
 cause an infinite loop, because in that case MESSAGE-INDEX may require
 fetching the message to determine how to sort it, which may require calling
 MESSAGE-INDEX.

---
 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 3a02f046f..9dd229275 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.208 2007/01/05 21:19:25 cph Exp $
+$Id: imail-imap.scm,v 1.209 2007/03/10 17:35:57 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -1517,7 +1517,7 @@ USA.
 			(assq keyword alist))
 		      (lambda (keyword item)
 			(set-cdr! (assq keyword alist) (list item)))))))
-	    `(FETCH ,(+ (message-index message) 1) ,@alist)))
+	    `(FETCH ,(+ (%message-index message) 1) ,@alist)))
 	(lambda ()
 	  (fetch-message-items-1 message keywords suffix)))))
 
-- 
2.25.1