diff options
-rw-r--r-- | mumi/messages.scm | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 1260934..da68212 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -186,16 +186,13 @@ result for a while." (let ((key (list 'patch-messages bug-id))) (or (cached? key) (cache! key - (match - (soap-invoke* (%config 'debbugs) get-bug-message-numbers bug-id) - ((msg-nums . _) - (map (lambda (msg-num) - (with-input-from-file (download-message bug-id msg-num) - (lambda () - (match (mbox->emails (current-input-port)) - ((email) (parse-email email)) - (_ #f))))) - msg-nums))))))) + (map (lambda (msg) + (with-input-from-file (mu:path msg) + (lambda () + (match (mbox->emails (current-input-port)) + ((email) (parse-email email)) + (_ #f))))) + (mu:message-list (format #f "bugid:~a" bug-id))))))) (define* (search-bugs query #:key (sets '()) (max 100)) "Return a list of all bugs matching the given QUERY string. |