messages: issue-messages: Prefer the active log.

* mumi/messages.scm (issue-messages): If the active log exists use it
for issue messages.

diff --git a/mumi/messages.scm b/mumi/messages.scm
index ae39b9a9f2d4ef43b55c4c3116caa8f4782dd052..25425a3a202e31c78027324bdbe021d2418af74c 100644 (file)
--- a/mumi/messages.scm
+++ b/mumi/messages.scm
@@ -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)