1.1 --- a/s4-funcs.sh	Fri Apr 12 01:31:54 2019 +0900
     1.2 +++ b/s4-funcs.sh	Sat Apr 13 18:28:20 2019 +0900
     1.3 @@ -2993,9 +2993,14 @@
     1.4        fi
     1.5      fi
     1.6    else
     1.7 -    query "delete from grp_mem $cond;
     1.8 -delete from grp_mem_s $cond;
     1.9 -delete from grp_mem_m $cond;"
    1.10 +    query "begin;
    1.11 +	delete from grp_mem $cond;
    1.12 +	delete from grp_mem_s $cond;
    1.13 +	delete from grp_mem_m $cond;
    1.14 +	delete from grp_adm $cond;
    1.15 +	delete from grp_adm_s $cond;
    1.16 +	delete from grp_adm_m $cond;
    1.17 +	end;"
    1.18      action="から脱退しました。"
    1.19    fi
    1.20    smail "$(collectemail `getgroupadmins $1`)" "Member change of $1"<<-EOF