[Rt-commit] r13512 - rt/3.8/branches/non-ascii-subject/lib/RT/Action

[ruz at bestpractical.com]

Author: ruz
Date: Fri Jun 20 23:23:34 2008
New Revision: 13512

Modified:
   rt/3.8/branches/non-ascii-subject/lib/RT/Action/SendEmail.pm

Log:
* minor

Modified: rt/3.8/branches/non-ascii-subject/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/3.8/branches/non-ascii-subject/lib/RT/Action/SendEmail.pm	(original)
+++ rt/3.8/branches/non-ascii-subject/lib/RT/Action/SendEmail.pm	Fri Jun 20 23:23:34 2008
@@ -1043,17 +1043,16 @@
     my $self = shift;
     my ( $field, $enc ) = ( shift, shift );
 
-    if ( $field eq 'From' and RT->Config->Get('SMTPFrom') ) {
-        $self->TemplateObj->MIMEObj->head->replace( $field,
-            RT->Config->Get('SMTPFrom') );
+    my $head = $self->TemplateObj->MIMEObj->head;
+
+    if ( lc($field) eq 'from' and RT->Config->Get('SMTPFrom') ) {
+        $head->replace( $field, RT->Config->Get('SMTPFrom') );
         return;
     }
 
-    my $value = $self->TemplateObj->MIMEObj->head->get($field);
-
+    my $value = $head->get( $field );
     $value = $self->MIMEEncodeString( $value, $enc );
-
-    $self->TemplateObj->MIMEObj->head->replace( $field, $value );
+    $head->replace( $field, $value );
 
 }