#!/usr/bin/env 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, "| urlview");

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

# Convert message-ID into news:message-ID, to read news articles
$buf =~ s/<(\S+\@\S+)>/news:$1/g;

print URLVIEW $buf;
close URLVIEW;