From d21d35fbe1bdbbdde8c3e44411f94c4e9c3685a6 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Wed, 22 Apr 2020 19:04:49 +0200 Subject: mumi: Rename patch-messages to issue-messages. --- mumi/messages.scm | 8 ++++---- 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) -- cgit v1.2.3