[hcoop/portal.git] / mailinglist.sml

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)
Commit	Line	Data
9d1c0e98 AC	1	structure MailingList = Request(struct
	2	val table = "MailingList"
	3	val adminGroup = "lists"
	4	fun subject list = "Mailman list request: " ^ list
	5	val template = "list"
	6	val descr = "mailing list"
	7
	8	fun body (mail, lst) =
	9	(Mail.mwrite (mail, "List name: ");
	10	Mail.mwrite (mail, lst);
	11	Mail.mwrite (mail, "\n"))
	12	end)