From 140580029ddfe1c5784dc0b5bf28641a5703d9d5 Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Sun, 11 Mar 2007 03:59:12 +0000
Subject: [PATCH] Fix bug in previous commit with modification event arguments.

---
 v7/src/imail/imail-core.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index ba61aa6b5..d59718b13 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-core.scm,v 1.157 2007/03/11 01:11:19 riastradh Exp $
+$Id: imail-core.scm,v 1.158 2007/03/11 03:59:12 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -780,7 +780,7 @@ USA.
                                 message)))
               (set-folder-order-tree! order tree))))))))
 
-(define (update-folder-order folder modification-type . args)
+(define (update-folder-order folder modification-type arguments)
   (without-interrupts
    (lambda ()
      (let ((order (folder-order folder)))
@@ -791,8 +791,8 @@ USA.
              ((INCREASE-LENGTH)
               (let ((tree (folder-order-tree order)))
                 (if tree
-                    (let ((index (car args))
-                          (count (cadr args))
+                    (let ((index (car arguments))
+                          (count (cadr arguments))
                           (selector (folder-order-selector order)))
                       (do ((index index (+ index 1)))
                           ((= index count))
@@ -803,7 +803,7 @@ USA.
              ((EXPUNGE)
               (let ((tree (folder-order-tree order)))
                 (if tree
-                    (let ((index (car args))
+                    (let ((index (car arguments))
                           (selector (folder-order-selector order)))
                       (wt-tree/delete!
                        tree
-- 
2.25.1