From f88093a82b2b265cf959248ee84574e076cf3899 Mon Sep 17 00:00:00 2001
From: Wes Morgan <cap10morgan@webgui-svn>
Date: Wed, 18 Feb 2009 21:40:47 +0000
Subject: [PATCH] added more MIME encoding of mail headers in case wide chars
 sneak in there

---
 lib/WebGUI/Mail/Send.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/WebGUI/Mail/Send.pm b/lib/WebGUI/Mail/Send.pm
index e7ad886ea..da437b0fd 100644
--- a/lib/WebGUI/Mail/Send.pm
+++ b/lib/WebGUI/Mail/Send.pm
@@ -302,12 +302,12 @@ sub create {
     }
 	my $message = MIME::Entity->build(
 		Type=>$type,
-		From=>$from,
-		To=>$headers->{to},
-		Cc=>$headers->{cc},
-		Bcc=>$headers->{bcc},
-		"Reply-To"=>$replyTo,
-		"In-Reply-To"=>$headers->{inReplyTo},
+		From=> encode('MIME-Q', $from),
+		To=> encode('MIME-Q', $headers->{to}),
+		Cc=> encode('MIME-Q', $headers->{cc}),
+		Bcc=> encode('MIME-Q', $headers->{bcc}),
+		"Reply-To"=> encode('MIME-Q', $replyTo),
+		"In-Reply-To"=> encode('MIME-Q', $headers->{inReplyTo}),
 		Subject=> encode('MIME-Q', $headers->{subject}),
 		"Message-Id"=>$id,
 		Date=>$session->datetime->epochToMail,