gistfile.txt

diff --git a/lib/RT/Interface/Email.pm b/lib/RT/Interface/Email.pm
index 8f6e190..f1050c2 100644
--- a/lib/RT/Interface/Email.pm
+++ b/lib/RT/Interface/Email.pm
@@ -1069,6 +1069,9 @@ of the From (evaluated in order of Reply-To:, From:, Sender)
 sub ParseSenderAddressFromHead {
     my $head = shift;
 
+    use Data::Dumper;
+    $RT::Logger->error( Dumper $head );
+
     #Figure out who's sending this message.
     foreach my $header ('Reply-To', 'From', 'Sender') {
         my $addr_line = $head->get($header) || next;