Define IMAP:RESPONSE:FETCH-ATTRIBUTE-KEYWORDS.

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 305a986d178d672679dc3b7e9aa4a194d65275de..04f55fbbda5f96375e14ab4476ec8d712d56629e 100644 (file)
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.27 2000/05/08 14:02:46 cph Exp $
+;;; $Id: imail.pkg,v 1.28 2000/05/08 15:04:42 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -164,6 +164,7 @@
          imap:response:expunge-index
          imap:response:expunge?
          imap:response:fetch-attribute
+         imap:response:fetch-attribute-keywords
          imap:response:fetch-index
          imap:response:fetch?
          imap:response:flags

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index c08daa7267a7cd702500018733b77b1d2aec1340..843e9f3911c8d5e1f0fc0bad57c7f5877b317b35 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.12 2000/05/08 13:56:33 cph Exp $
+;;; $Id: imap-response.scm,v 1.13 2000/05/08 15:04:44 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -494,6 +494,9 @@
     ((PREAUTH BYE) (cdr response))
     (else (error:bad-range-argument response 'IMAP:RESPONSE:RESPONSE-TEXT))))
 
+(define (imap:response:fetch-attribute-keywords response)
+  (map car (cddr response)))
+
 (define (imap:response:fetch-attribute response keyword)
   (let ((entry (assq keyword (cddr response))))
     (if (not entry)