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