From bdc3fc7be5e7c8d79001d419d1a587e4a3280bed Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Wed, 9 Nov 2016 21:09:44 +0100
Subject: mlmmjs parser is questionable

---
 ymir/mlmmj-expose.nix | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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]
-- 
cgit v1.2.3