[gmturner]

Thanks! The above didn't quite work for me but this did:

--- imapsync.foo   2008-04-22 03:22:24.000000000 -0700
+++ imapsync   2008-04-22 03:26:01.000000000 -0700
@@ -389,6 +389,7 @@
 use English;
 use POSIX qw(uname);
 use Fcntl;
+use Date::Parse;

 eval { require 'usr/include/sysexits.ph' };

@@ -1451,7 +1452,8 @@
        }
        my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
        my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-       my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
+       #my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
+       my $idate = POSIX::strftime('%d-%b-%Y %T -0800', localtime(str2time($head->{Date}[0])));
        $size = length($headstr) unless ($size);
        my $m_md5 = md5_base64($headstr);
        $debug and print "$s msg $m_uid:$m_md5:$size\n";