jcs.org
ftp -o - https://jcs.org/move_in | sh -
1#!/usr/bin/perl -n
2#
3# a mutt display filter to convert an email's local Date: header into the
4# current local timezone
5#
6# usage:
7# set display_filter="~/bin/mutt_filter"
8#
9
10use Date::Parse;
11use POSIX;
12use strict;
13
14if (/^Date: (.*)$/) {
15 my $datestr = $1;
16 my $date = strftime("%a, %d %b %Y %H:%M:%S %Z", localtime(str2time($datestr)));
17 print "Date: $date\n";
18} else {
19 print;
20}