*** mhtxthtml.pl.org	Wed Aug 25 11:03:20 1999
--- mhtxthtml.pl	Wed Aug 25 10:59:08 1999
***************
*** 162,167 ****
--- 162,169 ----
  
  sub addbase {
      my($b, $u) = @_;
+     return $u  if !defined($b) || $b !~ /\S/;
+ 
      my($ret);
      $u =~ s/^\s+//;
      if ($u =~ m%^$Url%o || $u =~ m/^#/) {
***************
*** 175,181 ****
  	    $b =~ s/\/$//;
  	    my @a = split(/\//, $b);
  	    my $cnt = 0;
! 	    while ($u =~ s|^(\.{1,2})/||) { ++$cnt  if length($1) == 2; }
  	    splice(@a, -$cnt)  if $cnt > 0;
  	    $b = join('/', @a, "");
  
--- 177,184 ----
  	    $b =~ s/\/$//;
  	    my @a = split(/\//, $b);
  	    my $cnt = 0;
! 	    while ( $cnt <= scalar(@a) &&
! 		    $u =~ s|^(\.{1,2})/|| ) { ++$cnt  if length($1) == 2; }
  	    splice(@a, -$cnt)  if $cnt > 0;
  	    $b = join('/', @a, "");