From 453eb8810a3c6cc4c6b830384abf0bef4abf1c8a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 15 Feb 2003 04:50:50 +0000 Subject: [PATCH] ... original commit: 8aa7cdc22d4a001791679642d65860673f806f34 --- collects/net/imap-unit.ss | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.ss index 7c8fecf..e1a42c6 100644 --- a/collects/net/imap-unit.ss +++ b/collects/net/imap-unit.ss @@ -44,7 +44,10 @@ (list 'noinferiors (string->symbol "\\Noinferiors")) (list 'noselect (string->symbol "\\Noselect")) (list 'marked (string->symbol "\\Marked")) - (list 'unmarked (string->symbol "\\Unmarked")))) + (list 'unmarked (string->symbol "\\Unmarked")) + + (list 'hasnochildren (string->symbol "\\HasNoChildren")) + (list 'haschildren (string->symbol "\\HasChildren")))) (define (imap-flag->symbol f) (or (ormap (lambda (a) (and (tag-eq? f (cadr a)) (car a))) @@ -58,7 +61,7 @@ s))) (define (log-warning . args) - ;; (apply printf args) + ;(apply printf args) (void)) (define log log-warning) @@ -370,7 +373,7 @@ [pattern (if mailbox (format "~a%" mailbox-name) "%")]) - (imap-list-mailboxes imap pattern mailbox-name))])) + (imap-list-mailboxes imap pattern mailbox-name))])) (define (imap-mailbox-flags imap mailbox) (let ([r (imap-list-mailboxes imap mailbox #f)])