From 3386525ffc93ee099f5c1ebe45a42a4e83339ff6 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 7 Apr 2020 16:11:17 +0200
Subject: scripts: Add "fetch" command.

This is to fetch all emails, including archived ones.
---
 scripts/mumi.in | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'scripts/mumi.in')

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)
-- 
cgit v1.2.3