# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1589172348 -32400
# Node ID a049d3cb0389ee6b90e7fa948e60d114d83ddfac
# Parent  d6f464f0a2128f4e84bb92c7b61b7d445718a5f3
Send group-mail each member respectively

diff -r d6f464f0a212 -r a049d3cb0389 s4-funcs.sh
--- a/s4-funcs.sh	Mon May 11 11:18:05 2020 +0900
+++ b/s4-funcs.sh	Mon May 11 13:45:48 2020 +0900
@@ -3052,18 +3052,25 @@
   members=`collectemail $grp`
   myuid=`query "SELECT rowid FROM user WHERE name='$user';"`
   mailfrom=`email4groupbyuid "$grp" "$myuid" | sed -e 1q -e 's/[ ,].*//'`
+  mailfrom="`gecos "$user"` <$mailfrom>"
+  sj="グループ $grp 宛メッセージ(from `gecos $user`)"
+  msg=$(cat<<-EOF
+	$urlbase?grp+$rowid
+	グループ $grp に所属する
+	`gecos $user` さんよりメッセージ:
+
+	$message
+	EOF
+	)
   # smail rcpt subj (file)
-  MAIL_FROM=$mailfrom \
-  SENDER=$noreply \
-  REPLYTO=$mailfrom \
-  SMAIL_TO="`echo "$grp" | nkf -jM | tr -d '\n'` readers <$noreply>" \
-	  smail "$members" "グループ $grp 宛メッセージ(from `gecos $user`)" <<EOF
-$urlbase?grp+$rowid
-グループ $grp に所属する
-`gecos $user` さんよりメッセージ:
-
-$message
-EOF
+  for m in $members; do
+    echo "$msg" |
+      MAIL_FROM=$mailfrom \
+	       SENDER=$noreply \
+	       REPLYTO=$mailfrom \
+	       SMAIL_TO="`echo "$grp" | nkf -jM | tr -d '\n'` readers <$m>" \
+	       smail "$members" "$sj"
+  done
   cat<<EOF
 <p>以下のユーザに送信しました。</p>
 <pre>