diff options
| -rw-r--r-- | mumi/messages.scm | 24 | ||||
| -rw-r--r-- | scripts/mumi.in | 2 |
2 files changed, 0 insertions, 26 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index ec36f7f..d93cefd 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -42,7 +42,6 @@ wishlist-bugs bugs-by-severity - update-mboxes! bug-id->log-file multipart-message? @@ -228,29 +227,6 @@ the difference by providing the current file size as an offset." file-name) #f))))) -(define (update-mboxes! bug-nums) - (par-for-each (lambda (bug-num i) - (format (current-error-port) - "[~a/~a] Refreshing mbox of bug ~a...~%" - i (length bug-nums) bug-num) - (force-output (current-error-port)) - (parameterize ((current-error-port (%make-void-port OPEN_WRITE))) - (and=> (download-mbox bug-num) - (lambda (mbox) - ;; Split into several files for indexing with mumimu - (let ((mails - (call-with-input-file mbox mbox->emails))) - (map (lambda (mail index) - (with-output-to-file - (format #f "~a/cur/~a-~a" - (%config 'mail-dir) bug-num index) - (lambda () - (put-bytevector (current-output-port) mail)))) - mails - (iota (length mails) 1))))))) - bug-nums - (iota (length bug-nums) 1))) - ;; We would like to use get-bug-log here, but it often returns ;; truncated messages. This is a known bug upstream. (define-public (patch-messages bug-id) diff --git a/scripts/mumi.in b/scripts/mumi.in index 9dd8980..3a55ed9 100644 --- a/scripts/mumi.in +++ b/scripts/mumi.in @@ -64,7 +64,6 @@ get-bugs `((package . ,package)))) (%config 'packages)) >))) - (update-mboxes! nums) (update-bug-database! nums)) (format (current-error-port) "Sleeping for ~a seconds." %update-interval) @@ -146,7 +145,6 @@ `((package . ,package) (archive . both)))) (%config 'packages)) >))) - (update-mboxes! nums) (update-bug-database! nums))) (("worker") (update-state!)) |