diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-01 07:18:34 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-01 07:18:34 +0200 |
| commit | db123dfe061eeb487f6c2795602052e97d4c4d41 (patch) | |
| tree | 023a1f7e99b875be09495b36356babb0bfa41771 | |
| parent | 0e9af8d11246eb08152a9bcbc3d04703963b756c (diff) | |
messages: patch-messages: Use local database and mail files.
| -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. |