changeset 709:025ef5578ae0

Warn undeliverable recipient(s) that was removed from rcptlist.
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 28 May 2020 19:27:03 +0900
parents 9bac1300f259
children 8a31b90f7815
files s4-funcs.sh
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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

yatex.org