scripts: Remove fetch-messages!.

1 files changed, 0 insertions, 25 deletions

diff --git a/scripts/mumi.in b/scripts/mumi.in
index 1e1b7de..e0da257 100644
--- a/scripts/mumi.in
+++ b/scripts/mumi.in
@@ -26,7 +26,6 @@
              (srfi srfi-37)
              (system repl server)
              (ice-9 match)
-             (ice-9 threads)
              (ice-9 format)
              (mumi config)
              (mumi bugs)
@@ -56,34 +55,10 @@
           (format (current-error-port)
                   "Failed to index `~a'~%" (%config 'mail-dir)))))))
 
-(define (fetch-messages!)
-  (let ((bug-nums
-         (sort (append-map (lambda (package)
-                             (soap-invoke* (%config 'debbugs)
-                                           get-bugs
-                                           `((package . ,package))))
-                           (%config 'packages)) <)))
-    (for-each (lambda (bug-num i)
-                (let ((msg-nums
-                       (match (soap-invoke* (%config 'debbugs)
-                                            get-bug-message-numbers
-                                            bug-num)
-                         ((nums . ids) nums))))
-                  (format (current-error-port)
-                          "[~a/~a] Refreshing ~a messages of bug ~a...~%"
-                          i (length bug-nums)
-                          (length msg-nums) bug-num)
-                  (parameterize ((current-error-port (%make-void-port OPEN_WRITE)))
-                    (par-for-each (cut download-message bug-num <>)
-                                  msg-nums))))
-              (reverse bug-nums)
-              (iota (length bug-nums) 1))))
-
 (define update-state!
   (lambda _
     (catch #t
       (lambda ()
-        (fetch-messages!)
         (mu-index)
         (update-bug-database!)
         (sleep %update-interval)