From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 May 2000 15:04:44 +0000 (+0000)
Subject: Define IMAP:RESPONSE:FETCH-ATTRIBUTE-KEYWORDS.
X-Git-Tag: 20090517-FFI~3919
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1a35996bc37cfc8ed52e9c0cf801cbd03431452d;p=mit-scheme.git

Define IMAP:RESPONSE:FETCH-ATTRIBUTE-KEYWORDS.
---

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 305a986d1..04f55fbbd 100644
--- 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 c08daa726..843e9f391 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.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)