messages: Remove download-mbox.

1 files changed, 0 insertions, 33 deletions

diff --git a/mumi/messages.scm b/mumi/messages.scm
index d93cefd..3b34237 100644
--- a/mumi/messages.scm
+++ b/mumi/messages.scm
@@ -194,39 +194,6 @@ symbol 'email)."
                           '()))))
     (http-get uri #:decode-body? #f #:headers headers)))
 
-(define* (download-mbox bug-id)
-  "Download the mbox of bug BUG-ID and store it in the mail directory
-if it's not already there.  If the file already exists only download
-the difference by providing the current file size as an offset."
-  (let* ((file-name (bug-id->mbox-file bug-id))
-         (offset (and (file-exists? file-name)
-                      (stat:size (stat file-name))))
-         (mtime  (and (file-exists? file-name)
-                      (stat:mtime (stat file-name)))))
-    (format (current-error-port)
-            "downloading ~a~%" file-name)
-    (call-with-values
-        (lambda ()
-          (fetch-mbox* (%config 'debbugs)
-                       bug-id
-                       ;; TODO: This doesn't work when
-                       ;; using Guile's web client, but
-                       ;; it works with wget.  #:offset
-                       ;; offset
-                       #:mdate
-                       (and mtime
-                            (time-monotonic->date
-                             (make-time time-monotonic 0 mtime)))))
-      (lambda (response body)
-        (if body
-            (begin
-              ;; TODO: append when using offset
-              (with-output-to-file file-name
-                (lambda ()
-                  (put-bytevector (current-output-port) body)))
-              file-name)
-            #f)))))
-
 ;; 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)