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

...

Browse Source 
original commit: 8aa7cdc22d4a001791679642d65860673f806f34
This commit is contained in:
Robby Findler 2003-02-15 04:50:50 +00:00
parent 7559137473
commit 453eb8810a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,7 +44,10 @@
(list 'noinferiors (string->symbol "\\Noinferiors")) (list 'noinferiors (string->symbol "\\Noinferiors"))
(list 'noselect (string->symbol "\\Noselect")) (list 'noselect (string->symbol "\\Noselect"))
(list 'marked (string->symbol "\\Marked")) (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) (define (imap-flag->symbol f)
(or (ormap (lambda (a) (and (tag-eq? f (cadr a)) (car a))) (or (ormap (lambda (a) (and (tag-eq? f (cadr a)) (car a)))
@ -58,7 +61,7 @@
s))) s)))
(define (log-warning . args) (define (log-warning . args)
;; (apply printf args) ;(apply printf args)
(void)) (void))
(define log log-warning) (define log log-warning)
@ -370,7 +373,7 @@
[pattern (if mailbox [pattern (if mailbox
(format "~a%" mailbox-name) (format "~a%" mailbox-name)
"%")]) "%")])
(imap-list-mailboxes imap pattern mailbox-name))])) (imap-list-mailboxes imap pattern mailbox-name))]))
(define (imap-mailbox-flags imap mailbox) (define (imap-mailbox-flags imap mailbox)
(let ([r (imap-list-mailboxes imap mailbox #f)]) (let ([r (imap-list-mailboxes imap mailbox #f)])