structure MailingList = Request(struct
				val table = "MailingList"
				val adminGroup = "lists"
				fun subject list = "Mailman list request: " ^ list
				val template = "list"
				val descr = "mailing list"

				fun body (mail, lst) =
				    (Mail.mwrite (mail, "List name: ");
				     Mail.mwrite (mail, lst);
				     Mail.mwrite (mail, "\n"))
				end)