diff options
-rw-r--r-- | mumi/messages.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index ae39b9a..25425a3 100644 --- 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) |