*** mhexternal.pl       Wed Mar  4 09:12:53 1998
--- /usr/local/lib/MHonArc/mhexternal.pl        Thu Apr 23 18:53:24 1998
***************
*** 332,351 ****
      ## Determine default filename extension
      if ($inext) {
        $ext = $inext;
      } else {
        if (defined($CTExt{$ctype})) {
            ($ext, $type) = split(/:/, $CTExt{$ctype}, 2);
        } else {
            local($ctype2) = $ctype;
            $ctype2 =~ s%/x-%/%i;
            ($ext, $type) = split(/:/, $CTExt{$ctype2}, 2);
        }
        $ext = (split(/,/, $ext))[0];
      }
      $type = $intype  if $intype;
      if (!$ext) {
!       $ext = $UnknownExt;
        $type = $ctype;
      }
      $pre = $ext;
      substr($pre, 3) = "" if length($pre) > 3; # Prune prefix to 3 chars
--- 332,357 ----
      ## Determine default filename extension
      if ($inext) {
        $ext = $inext;
      } else {
        if (defined($CTExt{$ctype})) {
            ($ext, $type) = split(/:/, $CTExt{$ctype}, 2);
        } else {
            local($ctype2) = $ctype;
            $ctype2 =~ s%/x-%/%i;
            ($ext, $type) = split(/:/, $CTExt{$ctype2}, 2);
        }
        $ext = (split(/,/, $ext))[0];
      }
      $type = $intype  if $intype;
      if (!$ext) {
!         if (index($nameparm, '.')) {
!           $ext = substr($nameparm, index($nameparm, '.') + 1);
!       } else {
!           $ext = $UnknownExt;
!       }
        $type = $ctype;
      }
      $pre = $ext;
      substr($pre, 3) = "" if length($pre) > 3; # Prune prefix to 3 chars