messages: issue-messages: Prefer the active log. master
authorRicardo Wurmus <rekado@elephly.net>
Fri, 4 Dec 2020 12:02:10 +0000 (13:02 +0100)
committerRicardo Wurmus <rekado@elephly.net>
Fri, 4 Dec 2020 12:02:10 +0000 (13:02 +0100)
* mumi/messages.scm (issue-messages): If the active log exists use it
for issue messages.

mumi/messages.scm

index ae39b9a9f2d4ef43b55c4c3116caa8f4782dd052..25425a3a202e31c78027324bdbe021d2418af74c 100644 (file)
@@ -186,9 +186,12 @@ result for a while."
     (bug-id->log-file bug-id #:archived? #t))
   (define active-log
     (bug-id->log-file bug-id))
+  ;; Prefer the active log over the archived log.  This is useful if
+  ;; the bug has been unarchived.  The mere existence of an archived
+  ;; log does not mean that the bug is *currently* archived.
   (define file
-    (or (and (file-exists? archived-log) archived-log)
-        (and (file-exists? active-log) active-log)))
+    (or (and (file-exists? active-log) active-log)
+        (and (file-exists? archived-log) archived-log)))
   (if file
       (let ((key (list 'issue-messages bug-id)))
         (or (cached? key)