Fix thinko.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 29a34f3fd89df05411e15beb96959bcd19f12350..b61e726a47ac1c233c95ed992bfcadd98625530e 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.62 2000/05/18 15:35:29 cph Exp $
+;;; $Id: imail-top.scm,v 1.63 2000/05/18 17:14:18 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -428,7 +428,7 @@ With prefix argument N moves backward N messages with these flags."
                       selector
                       (loop (message-index selector))))
                 ((not selector)
-                 (last-message selector))
+                 (last-message folder))
                 ((and (exact-integer? selector)
                       (<= 0 selector)
                       (< selector (folder-length folder)))