Export procedures for deconstructing LIST responses.

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 87f1db2a8be205c1e709aba2d59dcfeb533dd3ec..f9daa87d0a0fba14aceba495a6b793975fe09995 100644 (file)
--- 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 185c5328cae5917d59e64b2593ecc7f1813794b4..e9c927bdf1cec5eaec766db531ec4666fb5a98d2 100644 (file)
--- 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)