mails: set List-Id

2015-04-24 16:44:43 +02:00 · 2015-04-24 16:44:43 +02:00 · 8e4602ca53
commit 8e4602ca53
parent f62f76a52b
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