--- trunk/script/sman	2004/05/26 19:01:59	96
+++ trunk/script/sman	2004/05/27 10:41:59	98
@@ -72,8 +72,7 @@
   $format = new WAIT::Format::Term;
 }
 
-my $pager =  ($OPT{pager}) ? \&pager : \&less;
-$pager =  \&less;	# force pager usage
+my $pager =  ($OPT{pager}) ? \&less : \&pager;
 my $OUT   = $term->OUT;
 
 my $st = 1;
@@ -365,12 +364,15 @@
 
 sub less {
   my $flags = '';
-  if ($WAIT::Config->{pager} =~ /less/) {
+  my $pager = $OPT{pager};
+  if ($pager =~ /less/) {
     $flags = '-r';
-  } elsif ($WAIT::Config->{pager} =~ /more/) {
+  } elsif ($pager =~ /more/) {
     $flags = '-c';
+  } elsif ($pager =~ /lynx/) {
+    $flags = '-stdin';
   }
-  open(PAGER, "|$WAIT::Config->{pager} $flags") or die;
+  open(PAGER, "| $pager $flags") or die;
   print PAGER @_;
   close PAGER;
 }