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] , mailTo = [Address Nothing to]
, mailCc = [] , mailCc = []
, mailBcc = [] , mailBcc = []
, mailHeaders = [("Subject", subject)] , mailHeaders = [("Subject", subject),
("List-Id", "\"Matemat\" <matemat@matemat.hq.c3d2.de>")]
, mailParts =[[Part , mailParts =[[Part
{ partType = "text/plain; charset=utf-8" { partType = "text/plain; charset=utf-8"
, partEncoding = None , partEncoding = None