X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/6f91863c2a28a8590a6763580062c1d31b43dbec..98a5f121f24a6899a57472005e0d0cdf1559fbd2:/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