1.1 --- a/s4-funcs.sh	Mon May 11 11:18:05 2020 +0900
     1.2 +++ b/s4-funcs.sh	Mon May 11 13:45:48 2020 +0900
     1.3 @@ -3052,18 +3052,25 @@
     1.4    members=`collectemail $grp`
     1.5    myuid=`query "SELECT rowid FROM user WHERE name='$user';"`
     1.6    mailfrom=`email4groupbyuid "$grp" "$myuid" | sed -e 1q -e 's/[ ,].*//'`
     1.7 +  mailfrom="`gecos "$user"` <$mailfrom>"
     1.8 +  sj="グループ $grp 宛メッセージ(from `gecos $user`)"
     1.9 +  msg=$(cat<<-EOF
    1.10 +	$urlbase?grp+$rowid
    1.11 +	グループ $grp に所属する
    1.12 +	`gecos $user` さんよりメッセージ:
    1.13 +
    1.14 +	$message
    1.15 +	EOF
    1.16 +	)
    1.17    # smail rcpt subj (file)
    1.18 -  MAIL_FROM=$mailfrom \
    1.19 -  SENDER=$noreply \
    1.20 -  REPLYTO=$mailfrom \
    1.21 -  SMAIL_TO="`echo "$grp" | nkf -jM | tr -d '\n'` readers <$noreply>" \
    1.22 -	  smail "$members" "グループ $grp 宛メッセージ(from `gecos $user`)" <<EOF
    1.23 -$urlbase?grp+$rowid
    1.24 -グループ $grp に所属する
    1.25 -`gecos $user` さんよりメッセージ:
    1.26 -
    1.27 -$message
    1.28 -EOF
    1.29 +  for m in $members; do
    1.30 +    echo "$msg" |
    1.31 +      MAIL_FROM=$mailfrom \
    1.32 +	       SENDER=$noreply \
    1.33 +	       REPLYTO=$mailfrom \
    1.34 +	       SMAIL_TO="`echo "$grp" | nkf -jM | tr -d '\n'` readers <$m>" \
    1.35 +	       smail "$members" "$sj"
    1.36 +  done
    1.37    cat<<EOF
    1.38  <p>以下のユーザに送信しました。</p>
    1.39  <pre>