diff options
| -rw-r--r-- | debbugs/operations.scm | 10 |
1 files 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 |