Large-scale editing pass over the front-end code. Code should now be

clearer and better organized.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index c7e65438e7178deb8b29560725603295ae0e9d9c..18a26e263f4398d85bda8fa42cb9f791c2ea21fd 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.165 2000/06/16 17:57:35 cph Exp $
+;;; $Id: imail-top.scm,v 1.166 2000/06/16 18:00:18 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1597,7 +1597,7 @@ Negative argument means search in reverse."
                     selector
                     (let ((index (message-index selector)))
                       (if (< index (folder-length folder))
-                          index
+                          (get-message folder index)
                           (last-message folder)))))
               ((not selector)
                (last-message folder))

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 82e142aa5186c74baa2623df7f1efce411d03c9d..246b47fbcecab20c2095b2e92e4de68fd2e9e94a 100644 (file)
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.62 2000/06/15 16:20:02 cph Exp $
+;;; $Id: imail.pkg,v 1.63 2000/06/16 17:58:11 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -205,7 +205,6 @@
          edwin-command$imail-bury
          edwin-command$imail-continue
          edwin-command$imail-copy-folder
-         edwin-command$imail-copy-messages
          edwin-command$imail-create-folder
          edwin-command$imail-delete-backward
          edwin-command$imail-delete-folder