From 03efe258a0bafe29492e590f1db126c977e25635 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 22 Apr 2000 01:54:48 +0000
Subject: [PATCH] First attempt at a parser for IMAP server responses.

---
 v7/src/imail/fake-env.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/v7/src/imail/fake-env.scm b/v7/src/imail/fake-env.scm
index d4b5df9cc..6642c7a5d 100644
--- 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)
-- 
2.25.1