From 465f8ed1b317afb1c7aefde04e53118a19be1a18 Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Tue, 29 Jan 2013 21:44:24 +0100 Subject: Finished the factoring of localpart-related methods. --- lib/Fripost/Schema/Mail.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/Fripost/Schema/Mail.pm') diff --git a/lib/Fripost/Schema/Mail.pm b/lib/Fripost/Schema/Mail.pm index c07c6d1..3f9ec73 100644 --- a/lib/Fripost/Schema/Mail.pm +++ b/lib/Fripost/Schema/Mail.pm @@ -19,6 +19,7 @@ use utf8; use MIME::Entity; use Mail::GnuPG; use Encode 'encode'; +use Net::IDN::Encode 'email_to_ascii'; my $DEBUG = 0; @@ -31,8 +32,8 @@ sub new { $msg{Encoding} //= 'quoted-printable'; $msg{Charset} //= 'utf-8'; - $msg{From} = Encode::encode( 'MIME-Q', $msg{From}) if $msg{From}; - $msg{To} = Encode::encode( 'MIME-Q', $msg{To}) if $msg{To}; + $msg{From} = Encode::encode( 'MIME-Q', email_to_ascii($msg{From})) if $msg{From}; + $msg{To} = Encode::encode( 'MIME-Q', email_to_ascii($msg{To})) if $msg{To}; $msg{Subject} = Encode::encode( 'MIME-Q', $msg{Subject}) if $msg{Subject}; my $msg = MIME::Entity::->build( %msg ); -- cgit v1.2.3