Fix thinko.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 18a26e263f4398d85bda8fa42cb9f791c2ea21fd..8cac6c253078370e5602e54125d08951a38d25d3 100644 (file)
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.166 2000/06/16 18:00:18 cph Exp $
+;;; $Id: imail-top.scm,v 1.167 2000/06/16 18:18:10 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1576,7 +1576,7 @@ Negative argument means search in reverse."
                (let ((folder (selected-folder))
                      (msg (selected-message)))
                  (let loop ((n n) (msg msg) (winner #f))
-                   (if operation (operation next))
+                   (if operation (operation msg))
                    (let ((next (step msg predicate)))
                      (cond ((not next)
                             (if winner (select-message folder winner))