summaryrefslogtreecommitdiff
path: root/awm
diff options
context:
space:
mode:
Diffstat (limited to 'awm')
-rwxr-xr-xawm6
1 files changed, 3 insertions, 3 deletions
diff --git a/awm b/awm
index 8166509..f83555f 100755
--- a/awm
+++ b/awm
@@ -141,11 +141,11 @@ sub gettime($) {
my $received = $header->get('Received', 0);
my ($date, $time);
($date) = $received =~ /;([^;]+)$/ if defined $received;
- $time = parsedate($date) if defined $date;
+ $time = parsedate($date, GMT => 1) if defined $date;
unless (defined $time) {
$QUIET or warn ("$PROGRAM_NAME: Falling back to date header in $file\n");
$date = $header->get('Date');
- $time = parsedate($date) if defined $date;
+ $time = parsedate($date, GMT => 1) if defined $date;
warn ("$PROGRAM_NAME: Cannot get time for mail $file\n"),
return undef
unless defined $time;
@@ -208,7 +208,7 @@ $PRINTVERSION and
print "$PROGRAM_NAME version $VERSION",
exit(0);
if ($ARCHIVE_OLDER =~ /[^0-9]/) {
- $ARCHIVE_OLDER = parsedate($ARCHIVE_OLDER, PREFER_PAST => 1, WHOLE => 1);
+ $ARCHIVE_OLDER = parsedate($ARCHIVE_OLDER, PREFER_PAST => 1, WHOLE => 1, GMT => 1);
die ("Cannot parse timestamp\n") unless defined $ARCHIVE_OLDER;
};