diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-07 14:21:40 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-07 14:21:40 +0200 |
| commit | 01ed2c8ee5a7c4facce6b15fdd01fbdafd28a5ea (patch) | |
| tree | 6127490bbdcfebfcbe7ac7357780255454c92dfc | |
| parent | 657d60379acb2e6c478d0202371a8069a0598f7d (diff) | |
messages: Add bug-id->mbox-file.
| -rw-r--r-- | mumi/messages.scm | 4 |
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. |