$NetBSD: patch-aa,v 1.4 2012/02/25 14:07:59 hans Exp $

--- rfc.orig	2011-11-23 13:08:42.000000000 +0000
+++ rfc
@@ -106,6 +106,9 @@ if ($ARGV[0] eq "-i") {
     #system ("$viewer -dump http://www.faqs.org/rfc/rfc-index.txt > $indexpath");
     #system ("$viewer -dump http://www.dewn.com/rfc/rfc-index.txt > $indexpath");
     system ("$viewer -dump http://ftp.isi.edu/in-notes/rfc-index.txt > $indexpath");
+ 
+    my $filetype = `file '$indexpath'`;
+    system("if expr \"$filetype\" : \".*gzip.*\" 2>&1 >/dev/null ; then mv ${indexpath} ${indexpath}.gz ; gunzip ${indexpath}.gz ; fi");
     $indexlength=numlines($indexpath); print "new lines \t= $indexlength\t$indexpath\n";
     exit }