diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-01 07:19:02 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-01 07:19:02 +0200 |
commit | 05baef5dc2ebd8518057701a27fa38101c62bc8a (patch) | |
tree | 8081275c1356bb971138fd68132ed3f04e4031d2 | |
parent | db123dfe061eeb487f6c2795602052e97d4c4d41 (diff) |
messages: extract-attachment: Do not use fetch-bug.
-rw-r--r-- | mumi/messages.scm | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index da68212..b96f958 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -139,17 +139,15 @@ we have to do this in a very convoluted way." (loop rest (and=> (nth pos parts) mime-entity-body)))))) - (and=> (fetch-bug id) - (lambda (bug) - (and=> (nth msg-num (patch-messages id)) - (lambda (msg) - (cond - ((multipart-message? msg) - (traverse path (email-body msg))) - (else - (match path - (() msg) - (_ #f))))))))) + (and=> (nth msg-num (patch-messages id)) + (lambda (msg) + (cond + ((multipart-message? msg) + (traverse path (email-body msg))) + (else + (match path + (() msg) + (_ #f))))))) (define (download-message bug-id msg-num) |