diff options
-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) |