X-Git-Url: https://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/453d75799fdab30af3360c84ee5dfd308aa1fb92..4b8df0b1e0ef6900d3d78b7169cb5d662ed6c657:/support.sml

diff --git a/support.sml b/support.sml
index 701737b..84c0744 100644
--- a/support.sml
+++ b/support.sml
@@ -261,7 +261,9 @@ fun writeRecipients (mail, iss : issue, cat : category, noName) =
 		  FROM WebUser JOIN Membership ON (usr = id AND grp = ^(C.intToSql (#grp cat)))`
 	    else
 		$`SELECT name
-		  FROM WebUser JOIN SupSubscription ON (usr = id AND cat = ^(C.intToSql (#id cat)))`
+		  FROM WebUser JOIN SupSubscription ON (usr = id AND cat = ^(C.intToSql (#id cat)))
+		  UNION SELECT name
+		  FROM WebUser JOIN Membership ON (usr = id AND grp = ^(C.intToSql (#grp cat)))`
 
 	fun doOne [name] =
 	    let