*** omail.pl	Mon Dec 18 13:22:24 2000
--- omail.pl-20001218	Mon Dec 18 13:22:17 2000
***************
*** 1915,1921 ****
    $messagecontents .= "\n\n--$boundary\n";
  
      print SENDMAIL "Content-Type: ",${uploadInfo($attachment)}{'Content-Type'} || 'text/plain',";\n";
!   $messagecontents .= "Content-Type: ",${uploadInfo($attachment)}{'Content-Type'} || 'text/plain',";\n";
      print SENDMAIL "\tname=\"$attname\"\nContent-Transfer-Encoding: base64\n\n";
    $messagecontents .= "\tname=\"$attname\"\nContent-Transfer-Encoding: base64\n\n";
      print SENDMAIL "$attcontents\n--$boundary--";
--- 1915,1922 ----
    $messagecontents .= "\n\n--$boundary\n";
  
      print SENDMAIL "Content-Type: ",${uploadInfo($attachment)}{'Content-Type'} || 'text/plain',";\n";
!   $messagecontents .= "Content-Type: " . ${uploadInfo($attachment)}{'Content-Type'} || 'text/plain',";\n";
! #  $messagecontents .= "Content-Type: ",${uploadInfo($attachment)}{'Content-Type'} || 'text/plain',";\n";
      print SENDMAIL "\tname=\"$attname\"\nContent-Transfer-Encoding: base64\n\n";
    $messagecontents .= "\tname=\"$attname\"\nContent-Transfer-Encoding: base64\n\n";
      print SENDMAIL "$attcontents\n--$boundary--";