- // FIXME this is a useless header; we really want to generate a List-Unsubscribe header here.
- cprintf("X-Citadel-Source-Room: %s\r\n", source_room);
+ // If we have a source room, it's probably a mailing list message; generate an unsubscribe header
+ char esc_room[ROOMNAMELEN*2];
+ char esc_email[1024];
+ urlesc(esc_room, sizeof esc_room, source_room);
+ urlesc(esc_email, sizeof esc_email, recp);
+ cprintf("List-Unsubscribe: <http://%s/listsub?cmd=unsubscribe&room=%s&email=%s>\r\n",
+ CtdlGetConfigStr("c_fqdn"),
+ esc_room,
+ esc_email
+ );