[Rt-commit] r14255 - in rt/branches/3.999-DANGEROUS: lib/RT/Interface

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jul 18 02:52:16 2008
New Revision: 14255

Modified:
   rt/branches/3.999-DANGEROUS/   (props changed)
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm

Log:
 r14656 at sunnavys-mb:  sunnavy | 2008-07-18 14:50:21 +0800
 name fix


Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm	Fri Jul 18 02:52:16 2008
@@ -520,7 +520,7 @@
 
     $mail->head->set( $_ => $args{$_} ) foreach grep defined $args{$_}, qw(To Cc Bcc From);
 
-    set_in_reply_to( Message => $mail, in_reply_to => $args{'in_reply_to'} );
+    set_in_reply_to( message => $mail, in_reply_to => $args{'in_reply_to'} );
 
     return send_email( entity => $mail );
 }
@@ -943,7 +943,7 @@
 
 sub set_in_reply_to {
     my %args = (
-        Message     => undef,
+        message     => undef,
         in_reply_to => undef,
         ticket      => undef,
         @_
@@ -1159,7 +1159,7 @@
     my $errors_to = parse_errors_to_address_from_head($head);
 
     my $message_id = $head->get('Message-ID')
-        || "<no-message-id-" . time . rand(2000) . '@' . RT->config->get('organization') . '>';
+        || "<no-message-id-" . time . rand(2000) . '@' . RT->config->get('Organization') . '>';
 
     #Pull apart the subject line
     my $subject = $head->get('subject') || '';