*** omail.pl.orig	Mon Dec 18 15:12:19 2000
--- omail.pl	Mon Dec 18 15:08:29 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,1923 ----
    $messagecontents .= "\n\n--$boundary\n";
  
      print SENDMAIL "Content-Type: ",${uploadInfo($attachment)}{'Content-Type'} || 'text/plain',";\n";
!   $messagecontents .= "Content-Type: " . 
!       sprintf("%s", ${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--";