messages: Add bug-id->mbox-file.
authorRicardo Wurmus <rekado@elephly.net>
Tue, 7 Apr 2020 12:21:40 +0000 (14:21 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 7 Apr 2020 12:21:40 +0000 (14:21 +0200)
mumi/messages.scm

index 108275b8f326dc0e8d160fb54e9f2d10f030607b..beb9f1ad01e05e39fa21d55111c9cd9f0c628364 100644 (file)
@@ -150,6 +150,10 @@ we have to do this in a very convoluted way."
                (_ #f)))))))
 
 \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.