diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-22 19:04:49 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-22 19:04:49 +0200 |
| commit | d21d35fbe1bdbbdde8c3e44411f94c4e9c3685a6 (patch) | |
| tree | b97c66988495d7b07c44dd238e5e08f1bb35f0c2 | |
| parent | b463dfb407988f1c24ffefdcb5b5517ee9d6e297 (diff) | |
mumi: Rename patch-messages to issue-messages.
| -rw-r--r-- | mumi/messages.scm | 8 | ||||
| -rw-r--r-- | mumi/web/view/html.scm | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 6354e3c..a3d279f 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -142,7 +142,7 @@ we have to do this in a very convoluted way." (loop rest (and=> (nth pos parts) mime-entity-body)))))) - (and=> (nth msg-num (patch-messages id)) + (and=> (nth msg-num (issue-messages id)) (lambda (msg) (cond ((multipart-message? msg) @@ -155,8 +155,8 @@ we have to do this in a very convoluted way." ;; 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) - "Return list of messages relating to the bug BUG-ID. Cache the +(define-public (issue-messages bug-id) + "Return list of messages relating to the issue BUG-ID. Cache the result for a while." (define archived-log (bug-id->log-file bug-id #:archived? #t)) @@ -166,7 +166,7 @@ result for a while." (or (and (file-exists? archived-log) archived-log) (and (file-exists? active-log) active-log))) (if file - (let ((key (list 'patch-messages bug-id))) + (let ((key (list 'issue-messages bug-id))) (or (cached? key) (cache! key (call-with-input-file file diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index 8f2cf2b..7b04668 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -293,7 +293,7 @@ failed to process associated messages.") (define* (issue-page bug #:optional flash-message) "Render the conversation for the given BUG." (define id (bug-num bug)) - (define messages (patch-messages id)) + (define messages (issue-messages id)) (define parties (sort (filter (compose (negate bot?) extract-email) (participants (filter identity messages))) (lambda (a b) |