[Rt-commit] r12757 - rt/branches/3.8-TESTING/lib/RT/Interface

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri May 30 05:29:45 2008
New Revision: 12757

Modified:
   rt/branches/3.8-TESTING/lib/RT/Interface/Email.pm

Log:
imporved the name extract from email address a bit

Modified: rt/branches/3.8-TESTING/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.8-TESTING/lib/RT/Interface/Email.pm	Fri May 30 05:29:45 2008
@@ -914,7 +914,7 @@
         return ( undef, undef );
     }
 
-    my $Name = ( $AddrObj->phrase || $AddrObj->comment || $AddrObj->address );
+    my $Name = ( $AddrObj->name || $AddrObj->phrase || $AddrObj->comment || $AddrObj->address );
 
     #Lets take the from and load a user object.
     my $Address = $AddrObj->address;