Merge pull request #59 from Mic92/master

mails: set List-Id
2015-05-03 17:46:58 +02:00 · 2015-05-03 17:46:58 +02:00 · 6c0d3ab821
parent c734c02858 8e4602ca53
commit 6c0d3ab821
1 changed files with 2 additions and 1 deletions
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@ -101,7 +101,8 @@ sendMail to subject body =
      , mailTo = [Address Nothing to]
      , mailCc = []
      , mailBcc = []
-      , mailHeaders = [("Subject", subject)]
+      , mailHeaders = [("Subject", subject),
+         ("List-Id", "\"Matemat\" <matemat@matemat.hq.c3d2.de>")]
      , mailParts =[[Part
        { partType = "text/plain; charset=utf-8"
        , partEncoding = None