(loop rest
(and=> (nth pos parts)
mime-entity-body))))))
- (and=> (fetch-bug id)
- (lambda (bug)
- (and=> (nth msg-num (patch-messages id))
- (lambda (msg)
- (cond
- ((multipart-message? msg)
- (traverse path (email-body msg)))
- (else
- (match path
- (() msg)
- (_ #f)))))))))
+ (and=> (nth msg-num (patch-messages id))
+ (lambda (msg)
+ (cond
+ ((multipart-message? msg)
+ (traverse path (email-body msg)))
+ (else
+ (match path
+ (() msg)
+ (_ #f)))))))
\f
(define (download-message bug-id msg-num)