First attempt at a parser for IMAP server responses.

diff --git a/v7/src/imail/fake-env.scm b/v7/src/imail/fake-env.scm
index d4b5df9cc082b607ec7481c1cf9fc7467cc4008c..6642c7a5d090e8f7f6199a92ada7711306a0e893 100644 (file)
--- a/v7/src/imail/fake-env.scm
+++ b/v7/src/imail/fake-env.scm
@@ -6,7 +6,7 @@
                               (in-package (package/environment package)
                                 (make-environment)))))))
   (new-child '(EDWIN) 'IMAIL)
-  (new-child '(EDWIN IMAIL) 'IMAP-response)
+  (new-child '(EDWIN IMAIL) 'IMAP-RESPONSE)
   (new-child '(EDWIN IMAIL) 'IMAP-SYNTAX)
   (new-child '(EDWIN IMAIL) 'PARSER)
   (new-child '(EDWIN IMAIL) 'REXP)