# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1590661623 -32400
# Node ID 025ef5578ae03847ba4bebff387c47c24305f219
# Parent  9bac1300f2598b879468f660f5f9b75a2f67e050
Warn undeliverable recipient(s) that was removed from rcptlist.

diff -r 9bac1300f259 -r 025ef5578ae0 s4-funcs.sh
--- a/s4-funcs.sh	Thu May 28 19:26:07 2020 +0900
+++ b/s4-funcs.sh	Thu May 28 19:27:03 2020 +0900
@@ -2735,7 +2735,8 @@
 	ar=`getpar supprcpt`
 	if [ -n "$ar" ]; then
 	  for a in $ar; do
-	    checkdomain "$a" && supprcpt="$supprcpt $a"
+	    checkdomain "$a" && supprcpt="$supprcpt $a" ||
+		removercpt="$removercpt $a"
 	  done
 	fi
 	subj=`getpar subject`
@@ -2786,6 +2787,7 @@
 	html pre<<EOF
 `query "$sql"`
 ${supprcpt:+追加宛先 $supprcpt$nl}(送信者である $gecos さんも含まれます)
+${removercpt:+アドレスエラーによる削除(送られません): <em class="warn">$removercpt</em>}
 EOF
 	err SendDone: `echo $sql`
       fi