messages: Remove fetch-mbox*.
authorRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 09:07:05 +0000 (11:07 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 09:07:05 +0000 (11:07 +0200)
mumi/messages.scm

index edcaea4e776bfe0e880d18a7f5706226a4bf142c..24bd4956b782591e51827a00af7e7804afe3b25f 100644 (file)
@@ -151,35 +151,6 @@ we have to do this in a very convoluted way."
                (_ #f)))))))
 
 \f
-;; This is a modified version of fetch-mbox from guile-debbugs: it
-;; supports downloading with an offset.  It also doesn't bother with
-;; msg-nums.
-(define* (fetch-mbox* instance bug-number #:optional mbox-type
-                      #:key offset mdate)
-  "Download the mbox containing messages of bug BUG-NUMBER from the
-Debbugs server INSTANCE (a procedure returning a string when given the
-symbol 'email)."
-  (let* ((options
-          `((bug . ,(number->string bug-number))
-            ,@(cond
-               ((member mbox-type '(mboxmaint mboxstat mboxstatus))
-                `((mbox-type . "yes")))
-               (else '()))
-            (mbox . "yes")))
-         (uri (string-append (instance 'email) "?"
-                             (string-join (map (match-lambda
-                                                 ((key . value)
-                                                  (format #f "~a=~a" key value)))
-                                               options)
-                                          ";")))
-         (headers `(,@(if offset
-                          `((range . (bytes (,offset . #f))))
-                          '())
-                    ,@(if mdate
-                          `((if-modified-since . ,mdate))
-                          '()))))
-    (http-get uri #:decode-body? #f #:headers headers)))
-
 ;; 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)