mails: set List-Id

This commit is contained in:
Jörg Thalheim 2015-04-24 16:44:43 +02:00
parent f62f76a52b
commit 8e4602ca53

View file

@ -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