oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added more MIME encoding of mail headers in case wide chars sneak in there

Browse source
This commit is contained in:
Wes Morgan 2009-02-18 21:40:47 +00:00
parent 882a54fe5d
commit f88093a82b
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Mail/Send.pm
View file

@ -302,12 +302,12 @@ sub create {
} }
my $message = MIME::Entity->build( my $message = MIME::Entity->build(
Type=>$type, Type=>$type,
From=>$from, From=> encode('MIME-Q', $from),
To=>$headers->{to}, To=> encode('MIME-Q', $headers->{to}),
Cc=>$headers->{cc}, Cc=> encode('MIME-Q', $headers->{cc}),
Bcc=>$headers->{bcc}, Bcc=> encode('MIME-Q', $headers->{bcc}),
"Reply-To"=>$replyTo, "Reply-To"=> encode('MIME-Q', $replyTo),
"In-Reply-To"=>$headers->{inReplyTo}, "In-Reply-To"=> encode('MIME-Q', $headers->{inReplyTo}),
Subject=> encode('MIME-Q', $headers->{subject}), Subject=> encode('MIME-Q', $headers->{subject}),
"Message-Id"=>$id, "Message-Id"=>$id,
Date=>$session->datetime->epochToMail, Date=>$session->datetime->epochToMail,