I’m bored, so here’s what my current .screenrc is (screenshot included).
backtick 1 60 60 /usr/local/bin/checkmail.pl
hardstatus alwayslastline
hardstatus string '%{= kW}%-Lw%{= KW}%50>%n%f* %t%{= kW}%+Lw%< %{= kG}%-=[Mail: %1`] %D %d %M %Y %c:%s%{-}'
vbell off
startup_message off
.screenrc screenshot
This is my .fetchmailrc
poll mail.techish.net with proto IMAP user "rjk@techish.net" there with password "xxxxxxxxx" folder 'INBOX'
This is /usr/local/bin/checkmail.pl
#!/usr/bin/perl
open FETCHMAIL, "/usr/bin/fetchmail -t 10 -c -f ~/.fetchmailrc 2>/dev/null |"
or die "Can't run fetchmail: $!\n";
while(<FETCHMAIL>){
if(/^(\d+) messages \((\d+) seen.*?folder (.*?)\)/){
$m+=$1; $s+=$2; $f=$3;
# you might have to change this regex depending on
# how your IMAP server displays subfolders
$f =~ s/INBOX\.//;
}
if($1 > $2){
$fs{$f} = $1 - $2;
}
}
close FETCHMAIL;
$t = $m - $s;
if($t > 0){
foreach $folder (sort { $fs{$a}<=>$fs{$b} } keys %fs){
push @folders, "$folder:$fs{$folder}";
}
}
print join " ", @folders;