mumi: extract-attachment: Use the email-body directly.

* mumi/messages.scm (extract-attachment): Remove call to
split-multipart-message and use the email body directly.

diff --git a/mumi/messages.scm b/mumi/messages.scm
index a8d01831ac5d1a6cb60a1399ad6a0ff7baf262ca..2f4f1e50ab74e14403d6c9f71aa08003dfce490f 100644 (file)
--- a/mumi/messages.scm
+++ b/mumi/messages.scm
@@ -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)