mumi: extract-attachment: Use the email-body directly.
authorRicardo Wurmus <rekado@elephly.net>
Fri, 9 Nov 2018 21:12:36 +0000 (22:12 +0100)
committerRicardo Wurmus <rekado@elephly.net>
Fri, 9 Nov 2018 21:12:36 +0000 (22:12 +0100)
* mumi/messages.scm (extract-attachment): Remove call to
split-multipart-message and use the email body directly.

mumi/messages.scm

index a8d0183..2f4f1e5 100644 (file)
@@ -302,11 +302,8 @@ we have to do this in a very convoluted way."
          (lambda (bug)
            (and=> (nth msg-num (patch-messages id))
                   (lambda (msg)
-                    (and=> (multipart-message? msg)
-                           (lambda (attributes)
-                             (match (split-multipart-message attributes msg)
-                               (() #f)
-                               (parts (traverse path parts))))))))))
+                    (and (multipart-message? msg)
+                         (traverse path (email-body msg))))))))
 
 \f
 (define-public (patch-messages id)