From 5a8d4076e5f8131ac0126e167e88b9f5b317a34f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Apr 2000 21:48:31 +0000
Subject: [PATCH] Initial registration.

---
 v7/src/imail/fake-env.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 v7/src/imail/fake-env.scm

diff --git a/v7/src/imail/fake-env.scm b/v7/src/imail/fake-env.scm
new file mode 100644
index 000000000..09d9d31b9
--- /dev/null
+++ b/v7/src/imail/fake-env.scm
@@ -0,0 +1,13 @@
+(let ((new-child
+       (lambda (parent name)
+	 (let ((package (name->package parent)))
+	   (package/add-child! package
+			       name
+			       (in-package (package/environment package)
+				 (make-environment)))))))
+  (new-child '(EDWIN) 'IMAIL)
+  (new-child '(EDWIN IMAIL) 'IMAP-SYNTAX)
+  (new-child '(EDWIN IMAIL) 'PARSER)
+  (new-child '(EDWIN IMAIL) 'REXP)
+  (new-child '(EDWIN IMAIL) 'RFC822)
+  (new-child '(EDWIN IMAIL) 'URL))
\ No newline at end of file
-- 
2.25.1