mumi: Rename patch-messages to issue-messages.
authorRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 17:04:49 +0000 (19:04 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 17:04:49 +0000 (19:04 +0200)
mumi/messages.scm
mumi/web/view/html.scm

index 6354e3c4e81af111ab3b3bdb7533b84e630bde29..a3d279f11382889e391b38075243282883854232 100644 (file)
@@ -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."
 \f
 ;; 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
index 8f2cf2b924f34c9d143a502bdf860086acea85bb..7b04668a0ca712de9148432be55e2fea4f018495 100644 (file)
@@ -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)