mumi: extract-attachment: Extract the mime-entity body.

* mumi/messages.scm (extract-attachment): Extract the mime-entity-body
instead of expecting a tagged list.

diff --git a/mumi/messages.scm b/mumi/messages.scm
index 3909c4b..e4222e9 100644 (file)
--- a/mumi/messages.scm
+++ b/mumi/messages.scm
@@ -100,7 +100,7 @@
                   '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
@@ -117,8 +117,7 @@ we have to do this in a very convoluted way."
         ((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))