1 files changed, 6 insertions, 1 deletions

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index 8c7dfb91..b8a13cc4 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -43,7 +43,12 @@ let
                 case hashes of
                   [((_, recipient), _)] -> do
                     uuid <- UUID.nextRandom
-                    let fName = "queue" </> "exposed" <.> UUID.toString uuid
+                    let fName = "queue" </> "exposed" <.> uuidTrans uuid
+                        uuidTrans = uuidTrans' . UUID.toString
+                          where
+                            uuidTrans' []       = []
+                            uuidTrans' ('-':xs) = '.' : uuidTrans' xs
+                            uuidTrans' (x:xs)   =   x : uuidTrans' xs
                     getContents >>= writeFile fName
                     hPrintf stdout "Forwarding mail to <%s>, subscribed to %s\n" recipient (takeBaseName listDir)
                     callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", fName, "-T", recipient]