Teach send_mail() about MV_EMAIL_CHARSET

interchange · Aug 13, 2018 · ed509da · ed509da
1 parent f2fec38
commit ed509da
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/Vend/Util.pm b/lib/Vend/Util.pm
@@ -2124,6 +2124,12 @@ sub cookies_hash {
 sub send_mail {
 	my($to, $subject, $body, $reply, $use_mime, @extra_headers) = @_;
 
+	if (my $charset = $::Variable->{MV_EMAIL_CHARSET} || $Global::Variable->{MV_EMAIL_CHARSET}) {
+		if (!grep /content-type/i, @extra_headers) {
+			push @extra_headers, "Content-type: text/plain; charset=$charset";
+		}
+	}
+
 	if(ref $to) {
 		my $head = $to;