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 7dc81395aad37cf4f47ed39ddec49df7a132c529..c7e65438e7178deb8b29560725603295ae0e9d9c 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.164 2000/06/16 17:56:12 cph Exp $
+;;; $Id: imail-top.scm,v 1.165 2000/06/16 17:57:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1219,8 +1219,6 @@ If it doesn't exist, it is created first."
                     (if (= n 1) "" "s")
                     " copied to "
                     (url->string to))))))))
-
-(define (copy-folder folder to))
 \f
 ;;;; Miscellany
 

diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index 1fde522f427c8078751fba4269175e8721b67fa3..6d0072b9321536dcb9470c5f1254aa7abf8b4bb9 100644 (file)
--- a/v7/src/imail/load.scm
+++ b/v7/src/imail/load.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: load.scm,v 1.17 2000/06/08 18:08:30 cph Exp $
+;;; $Id: load.scm,v 1.18 2000/06/16 17:56:24 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -27,4 +27,4 @@
   (lambda ()
     (fluid-let ((*allow-package-redefinition?* #t))
       (package/system-loader "imail" '() 'QUERY))))
-(add-subsystem-identification! "IMAIL" '(1 2))
\ No newline at end of file
+(add-subsystem-identification! "IMAIL" '(1 3))
\ No newline at end of file