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

.

Browse Source 
original commit: e20ec5e5c57892ac2b7ec5001522bc71ca6eb023
This commit is contained in:
Matthew Flatt 2004-06-28 14:27:14 +00:00
parent 49040387bb
commit 66dc7c192d
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -207,9 +207,15 @@
(define (ok-tag-eq? i t) (define (ok-tag-eq? i t)
(and (tag-eq? (car i) 'OK) (and (tag-eq? (car i) 'OK)
(list? (cadr i)) ((length i) . >= . 3)
(= 2 (length (cadr i))) (tag-eq? (cadr i) (string->symbol (format "[~a" t)))))
(tag-eq? (cadadr i) t)))
(define (ok-tag-val i)
(let ([v (caddr i)])
(and (symbol? v)
(let ([v (symbol->string v)])
(regexp-match #rx"[]]$" v)
(string->number (substring v 0 (sub1 (string-length v))))))))
(define (wrap-info-handler imap info-handler) (define (wrap-info-handler imap info-handler)
(lambda (i) (lambda (i)
@ -249,11 +255,11 @@
(loop (cdr old) new)] (loop (cdr old) new)]
[else (loop (cdr old) (cons (car old) new))]))))))] [else (loop (cdr old) (cons (car old) new))]))))))]
[(ok-tag-eq? i 'UIDNEXT) [(ok-tag-eq? i 'UIDNEXT)
(set-imap-uidnext! imap (cadadr i))] (set-imap-uidnext! imap (ok-tag-val i))]
[(ok-tag-eq? i 'UIDVALIDITY) [(ok-tag-eq? i 'UIDVALIDITY)
(set-imap-uidvalidity! imap (cadadr i))] (set-imap-uidvalidity! imap (ok-tag-val i))]
[(ok-tag-eq? i 'UNSEEN) [(ok-tag-eq? i 'UNSEEN)
(set-imap-uidvalidity! imap (cadadr i))])) (set-imap-uidvalidity! imap (ok-tag-val i))]))
(info-handler i))) (info-handler i)))
(define-struct imap (r w (define-struct imap (r w