* mumi/messages.scm (extract-attachment): Extract the mime-entity-body
instead of expecting a tagged list.
'type)
'multipart))
-(define* (extract-attachment id msg-num path)
+(define (extract-attachment id msg-num path)
"Extract attachment from message number MSG-NUM in the thread for
the bug with the given ID. Follow PATH to get to the correct
multipart chunk containing the attachment. This is absolutely
((pos . rest)
(loop rest
(and=> (nth pos parts)
- (lambda (chunk)
- (cadr (find-tail (cut eq? #:body <>) chunk)))))))))
+ mime-entity-body))))))
(and=> (fetch-bug id)
(lambda (bug)
(and=> (nth msg-num (patch-messages id))