* mumi/messages.scm (issue-messages): If the active log exists use it
for issue messages.
(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)