mumi: extract-attachment: Extract the mime-entity body.
authorRicardo Wurmus <rekado@elephly.net>
Sun, 11 Nov 2018 19:43:56 +0000 (20:43 +0100)
committerRicardo Wurmus <rekado@elephly.net>
Sun, 11 Nov 2018 19:43:56 +0000 (20:43 +0100)
* mumi/messages.scm (extract-attachment): Extract the mime-entity-body
instead of expecting a tagged list.

mumi/messages.scm

index 3909c4b..e4222e9 100644 (file)
                   '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))