From 8ecba04cd14e9e56d4a67e76ae88f35022f20d48 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 21 Jul 2019 02:47:01 +0200 Subject: operations: get-bug-message-numbers: Return single value. It is easier to cache a single compound value than it is to cache mutiple values. * debbugs/operations.scm (get-bug-message-numbers): Return compound value. --- debbugs/operations.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/debbugs/operations.scm b/debbugs/operations.scm index c8c4364..e459a9d 100644 --- a/debbugs/operations.scm +++ b/debbugs/operations.scm @@ -165,11 +165,11 @@ bug identified by BUG-ID." urn:Debbugs/SOAP:item urn:Debbugs/SOAP:header *text*)) response-body))) - (values (map string->number msg-nums) - (map (lambda (header) - (and=> (parse-email-headers (drop-lines header 2)) - (cut assoc-ref <> 'message-id))) - headers)))))) + (cons (map string->number msg-nums) + (map (lambda (header) + (and=> (parse-email-headers (drop-lines header 2)) + (cut assoc-ref <> 'message-id))) + headers)))))) (define (get-usertag email) "Return an association list of tag names to lists of bug numbers for -- cgit v1.2.3