diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-22 11:07:05 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-22 11:07:05 +0200 |
| commit | cff232200165983201dfd228e3670ca3dd1f9077 (patch) | |
| tree | 9b0ac508163ded5abb1a17f1603ba0558ad651d7 | |
| parent | 893e7ae6ad8e6c313e3222313fe4e8d3f2895301 (diff) | |
messages: Remove fetch-mbox*.
| -rw-r--r-- | mumi/messages.scm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index edcaea4..24bd495 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -151,35 +151,6 @@ we have to do this in a very convoluted way." (_ #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) |