From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 Jun 2000 17:57:35 +0000 (+0000)
Subject: Large-scale editing pass over the front-end code.  Code should now be
X-Git-Tag: 20090517-FFI~3503
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b9350ff3f77119b999e541d9afc0b09e382ae29b;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 7dc81395a..c7e65438e 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.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))
 
 ;;;; Miscellany
 
diff --git a/v7/src/imail/load.scm b/v7/src/imail/load.scm
index 1fde522f4..6d0072b93 100644
--- 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