From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 Jun 2000 18:00:18 +0000 (+0000)
Subject: Large-scale editing pass over the front-end code.  Code should now be
X-Git-Tag: 20090517-FFI~3502
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6c0bdfa451d8e4af62459ce04c96a7bfa1aaddac;p=mit-scheme.git

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 c7e65438e..18a26e263 100644
--- 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 82e142aa5..246b47fbc 100644
--- 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