(log_headers): Adapt to the %headers hash now having all-lowercase

keys.

diff --git a/minc b/minc
index 49b9afe..725940a 100755 (executable)
--- a/minc
+++ b/minc
@@ -201,10 +201,10 @@ sub logerr { mylog('error', ERRORCHAR, @_); }
 sub log_headers {
     my %headers = @_;
 
-    logincoming('From:       ', $headers{'Return-Path'});
-    logincoming('To:         ', $headers{'To'});
-    logincoming('Subject:    ', $headers{'Subject'});
-    logincoming('Message-Id: ', $headers{'Message-Id'});
+    logincoming('From:       ', $headers{'return-path'});
+    logincoming('To:         ', $headers{'to'});
+    logincoming('Subject:    ', $headers{'subject'});
+    logincoming('Message-Id: ', $headers{'message-id'});
 }
 
 \f