suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 6f03479877cc8d99f2bd1a0652cf90837a565c6c
This commit is contained in:
Matthew Flatt 2004-05-26 13:08:25 +00:00
parent 8bec15be98
commit 77c5bb8442
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/net/imap-unit.ss
View File

@ -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)])