#!/usr/local/bin/perl
# Updated urlview - eliminates newlines and their associated whitespace
# Written by Tim Skirvin <tskirvin@killfile.org>, Fri Aug 10 15:39:26 CDT 2001

open(URLVIEW, "| /usr/local/bin/urlview");

while (<STDIN>) { 
  print URLVIEW $_;
  $buf .= $_; 
}
$buf =~ s/\s*\n\s*//g;

$buf =~ s/<(\S+\@\S+)>/news:$1/g;

print URLVIEW $buf;

close(URLVIEW);