-----[presentation code]-----
print "
\n\n";
exit(0) if $c == 0;
open(IN,"-|") || exec $ni,"h $query";
for($i=0; $i<=$limit_n && $i <$c; $i++) {
$l = &next_paragraph;
$l =~ /Message-Id: <([^>]+)>/oi || &fail; $id = $1;
$l =~ /Newsgroups: +(.+)/oi || &fail; $gr = $1;
$l =~ /Subject: +(.+)/oi || &fail; $su = $1;
$l =~ /From: +(.+)/oi || &fail; $fr = $1;
$l =~ /Date: +(.+)/oi || &fail; $da = $1;
$fr =~ s/.*\(([^\)]+)\).*/$1/;
$gr =~ s/,([^,]+)/,$1<\/a>/g;
$gr =~ s/^([^,]+)/$1<\/a>/;
print "
}
print "