From e242fa09afdf2d7763c3c99b900406eb1f7b287d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Mon, 12 Dec 2016 15:36:05 +0100
Subject: replace whole emails

---
 ymir/mlmmj-expose.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ymir')

diff --git a/ymir/mlmmj-expose.hs b/ymir/mlmmj-expose.hs
index b6309825..03af3c4b 100644
--- a/ymir/mlmmj-expose.hs
+++ b/ymir/mlmmj-expose.hs
@@ -156,7 +156,7 @@ main = do
                                                  , groupUrls = Set.empty
                                                  , groupSubs = Set.fromList $ map (replaceSub ident) subscribers
                                                  }
-            replaceSub ident sub = FoxReplaceSub { rInput = hash' (ident, sub)
+            replaceSub ident sub = FoxReplaceSub { rInput = listName ++ "+" ++ hash' (ident, sub) ++ "@subs.lists.yggdrasil.li"
                                                  , rOutput = sub
                                                  , rInputType = WordInput
                                                  , rCaseSensitive = True
-- 
cgit v1.2.3