tag=$1
entry=`cdb -q groups.cdb "t:$tag"` || bad "unknown tag $tag"
set -- $entry
-exec mailpost.newsgate -a $USER@`cat $QMAIL/control/me` -d mail mail.$2
+case "$SENDER" in $4) ;; *) bad "incorrect sender $SENDER" ;; esac
+exec bin/inject -a newsgate@distorted.org.uk mail.$2