summaryrefslogtreecommitdiff
path: root/scripts/mumi.in
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-04-07 14:29:56 +0200
committerRicardo Wurmus <rekado@elephly.net>2020-04-07 14:29:56 +0200
commita4bf12faba19b33c90d9f50908b56347842c95d7 (patch)
tree130e03fcc9d6ff0d087c042774bc195d114bc182 /scripts/mumi.in
parentdc0ede962970f3ffec112f94f45280cc951adb3e (diff)
scripts: Remove fetch-messages!.
Diffstat (limited to 'scripts/mumi.in')
-rw-r--r--scripts/mumi.in25
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)