*** pstoimg.pin.ORG	Tue Oct 26 14:15:05 1999
--- pstoimg.pin	Tue Dec  4 15:29:01 2001
***************
*** 1248,1256 ****
      my $edge = $1;
      my $croparg = '';
      if($edge =~ /b/i) {
!       $croparg = '-bot ';
      } elsif($edge =~ /[tlr]/i) {
!       $croparg = "-$edge ";
      } elsif($edge =~ /s/i) {
        #RRM: shave at most 1-2 rows of white from the bottom
  #if @pipes@
--- 1248,1256 ----
      my $edge = $1;
      my $croparg = '';
      if($edge =~ /b/i) {
!       $croparg = '-bot -sides ';
      } elsif($edge =~ /[tlr]/i) {
!       $croparg = "-$edge -sides ";
      } elsif($edge =~ /s/i) {
        #RRM: shave at most 1-2 rows of white from the bottom
  #if @pipes@
***************
*** 1262,1268 ****
  #fi
        my ($type,$width,$height) = get_image_geometry($in);
        next unless($type); # skip if no geometry
!       if(&do_cmd_norename("$PNMCROP -bot < $in",$tmp)) {
          my ($type,$width,$height2) = get_image_geometry($tmp);
          if($type && ($height - $height2) < 3 ) {
            # command succeeded and shaved less than 3 rows
--- 1262,1268 ----
  #fi
        my ($type,$width,$height) = get_image_geometry($in);
        next unless($type); # skip if no geometry
!       if(&do_cmd_norename("$PNMCROP -sides -bot < $in",$tmp)) {
          my ($type,$width,$height2) = get_image_geometry($tmp);
          if($type && ($height - $height2) < 3 ) {
            # command succeeded and shaved less than 3 rows