From 8e4602ca53edf52709ff1a0aa1feeab116be0d53 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Thalheim?= <joerg@higgsboson.tk>
Date: Fri, 24 Apr 2015 16:44:43 +0200
Subject: [PATCH] mails: set List-Id

---
 Handler/Common.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Handler/Common.hs b/Handler/Common.hs
index ecd9515..2a0de04 100644
--- 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