From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 May 2000 00:03:05 +0000 (+0000)
Subject: Export procedures for deconstructing LIST responses.
X-Git-Tag: 20090517-FFI~3767
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f5a4eaed54446ec773628faf785b8b9840e59504;p=mit-scheme.git

Export procedures for deconstructing LIST responses.
---

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 87f1db2a8..f9daa87d0 100644
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.37 2000/05/19 21:37:48 cph Exp $
+;;; $Id: imail.pkg,v 1.38 2000/05/21 00:03:03 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -183,6 +183,9 @@
 	  imap:response:fetch?
 	  imap:response:flags
 	  imap:response:flags?
+	  imap:response:list-delimiter
+	  imap:response:list-flags
+	  imap:response:list-mailbox
 	  imap:response:list?
 	  imap:response:lsub?
 	  imap:response:no?
diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 185c5328c..e9c927bdf 100644
--- a/v7/src/imail/imap-response.scm
+++ b/v7/src/imail/imap-response.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imap-response.scm,v 1.22 2000/05/19 05:02:01 cph Exp $
+;;; $Id: imap-response.scm,v 1.23 2000/05/21 00:03:05 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -547,6 +547,9 @@
 (define imap:response:expunge-index cadr)
 (define imap:response:fetch-index cadr)
 (define imap:response:flags cdr)
+(define imap:response:list-delimiter cadr)
+(define imap:response:list-mailbox caddr)
+(define imap:response:list-flags cdddr)
 (define imap:response:recent-count cadr)
 (define imap:response:search-indices cdr)