messages: Remove download-mbox.
authorRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 08:43:34 +0000 (10:43 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 08:43:34 +0000 (10:43 +0200)
mumi/messages.scm

index d93cefd1f090188aab5cff22ebe055f02a7ac95a..3b34237c08a58996e28b17d1c6b25cc6866f6e05 100644 (file)
@@ -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)