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

Fix imap-list-child-mailboxes to match contract

Browse Source 
Closes PR 13658
This commit is contained in:
Asumu Takikawa 2013-04-11 14:36:24 -04:00
parent c7d878c009
commit 7d4b162181
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/net/imap.rkt
View File

@ -14,12 +14,9 @@
(provide/contract (provide/contract
[imap-get-hierarchy-delimiter (imap-connection? . -> . bytes?)] [imap-get-hierarchy-delimiter (imap-connection? . -> . bytes?)]
[imap-list-child-mailboxes [imap-list-child-mailboxes
(case-> (->* (imap-connection? (or/c string? bytes? #f))
(imap-connection? (or/c false/c bytes?) ((or/c string? bytes?))
. -> . (listof (list/c (listof symbol?) bytes?))) (listof (list/c (listof symbol?) bytes?)))])
(imap-connection? (or/c false/c bytes?) (or/c false/c bytes?)
. -> .
(listof (list/c (listof symbol?) bytes?))))])
(provide (provide
imap-connection? imap-connection?
@ -584,7 +581,15 @@
[(imap mailbox) [(imap mailbox)
(imap-list-child-mailboxes imap mailbox #f)] (imap-list-child-mailboxes imap mailbox #f)]
[(imap mailbox raw-delimiter) [(imap mailbox raw-delimiter)
(let* ([delimiter (or raw-delimiter (imap-get-hierarchy-delimiter imap))] (let* ([delimiter (or (and raw-delimiter
(if (bytes? raw-delimiter)
raw-delimiter
(string->bytes/utf-8 raw-delimiter)))
(imap-get-hierarchy-delimiter imap))]
[mailbox (and mailbox
(if (bytes? mailbox)
mailbox
(string->bytes/utf-8 mailbox)))]
[mailbox-name (and mailbox (bytes-append mailbox delimiter))] [mailbox-name (and mailbox (bytes-append mailbox delimiter))]
[pattern (if mailbox [pattern (if mailbox
(bytes-append mailbox-name #"%") (bytes-append mailbox-name #"%")