diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-11-09 22:12:36 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-11-09 22:12:36 +0100 |
| commit | c0133b2d10d3b03ce95b4bb6afd057126f7beeeb (patch) | |
| tree | 8a9a0967249c4ed5cdb6fe24487f575e2ac0804a | |
| parent | 1247e0c07f2b091727a281a5c4ee5e59984b3969 (diff) | |
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.
| -rw-r--r-- | mumi/messages.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index a8d0183..2f4f1e5 100644 --- 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)))))))) (define-public (patch-messages id) |