summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mumi/messages.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm
index 108275b..beb9f1a 100644
--- a/mumi/messages.scm
+++ b/mumi/messages.scm
@@ -150,6 +150,10 @@ we have to do this in a very convoluted way."
(_ #f)))))))
+(define (bug-id->mbox-file bug-id)
+ (format #f "~a/mbox/~a"
+ (%config 'mail-dir) bug-id))
+
;; We would like to use get-bug-log here, but it often returns
;; truncated messages. This is a known bug upstream.