From 77c5bb84427b1f1356e8b1302e4d22c5e35bc837 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 26 May 2004 13:08:25 +0000 Subject: [PATCH] . original commit: 6f03479877cc8d99f2bd1a0652cf90837a565c6c --- collects/net/imap-unit.ss | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.ss index 692ddbd..ede01cc 100644 --- a/collects/net/imap-unit.ss +++ b/collects/net/imap-unit.ss @@ -402,7 +402,13 @@ [pattern (if mailbox (bytes-append mailbox-name #"%") #"%")]) - (imap-list-mailboxes imap pattern mailbox-name))])) + (map (lambda (p) + (list (car p) + (cond + [(symbol? (cadr p)) (string->bytes/utf-8 (symbol->string (cadr p)))] + [(string? (cadr p)) (string->bytes/utf-8 (symbol->string (cadr p)))] + [(bytes? (cadr p)) (cadr p)]))) + (imap-list-mailboxes imap pattern mailbox-name)))])) (define (imap-mailbox-flags imap mailbox) (let ([r (imap-list-mailboxes imap mailbox #f)])