messages: extract-attachment: Do not use fetch-bug.

diff --git a/mumi/messages.scm b/mumi/messages.scm
index da6821232ec0df75586f202b0d18474d0f1e3dd0..b96f958005d5ef024e4a8d11fb842edc997d9705 100644 (file)
--- 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)))))))
 
 \f
 (define (download-message bug-id msg-num)