scripts: Add "fetch" command.

This is to fetch all emails, including archived ones.

1 files changed, 12 insertions, 0 deletions

diff --git a/scripts/mumi.in b/scripts/mumi.in
index a60cf15..2b1f70f 100644
--- a/scripts/mumi.in
+++ b/scripts/mumi.in
@@ -130,6 +130,18 @@
      (if (and sender smtp)
          (worker-loop opts)
          (error "Both sender and smtp options must be provided!"))))
+  (("fetch")
+   (let ((nums (sort
+                (append-map (lambda (package)
+                              (soap-invoke*
+                               (%config 'debbugs)
+                               get-bugs
+                               `((package . ,package)
+                                 (archive . both))))
+                            (%config 'packages)) >)))
+     (update-mboxes! nums)
+     (mu-index)
+     (update-bug-database! nums)))
   (("worker")
    (update-state!))
   (("web" . rest)