Support recipient addresses in CC and BCC when using Net::SMTP

interchange · May 15, 2018 · 42452c0 · 42452c0
1 parent 49e899d
commit 42452c0
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/Vend/Util.pm b/lib/Vend/Util.pm
@@ -2262,6 +2262,12 @@ sub send_mail {
 
 		my @to;
 		my @addr = split /\s*,\s*/, $to;
+		for(@extra_headers) {
+			s/\s*$/\n/;
+			next unless /^(Cc|Bcc):\s*(\S.+)$/mi;
+#::logDebug("smtp adding receipients for $1=$2");
+			push @addr, split(/\s*,\s*/, $2);
+		}
 		for (@addr) {
 			if(/\s/) {
 				## Uh-oh. Try to handle