Кодировка в e-mail без зябриков

$charset = "utf-8";
$header = "Content-Type: text/html; charset=$charset\r\n";
mail($email, $theme, $text, $header);

function qp_enc( $input = "", $line_max = 76, $space_conv = true ) {
 GLOBAL $LANG;
   $hex = array('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
   $lines = preg_split("/(?:\r\n|\r|\n)/", $input);
   $eol = "?=\r\n\t";
   $escape = "=";
   $output = "";
   $charset = "=?".$LANG["charset"]."?Q?";
       while( list(, $line) = each($lines) ) {
               $linlen = strlen($line);
               $newline = "";
               for($i = 0; $i < $linlen; $i++) {
                       $c = substr( $line, $i, 1 );
                       $dec = ord( $c );
                       if ( ( $i == 0 ) && ( $dec == 46 ) ) {
                               $c = "=2E";
                       }
                       if ( $dec == 32 ) {
                               if ( $i == ( $linlen - 1 ) ) {
                                       $c = "_";
                               } else if ( $space_conv ) {
                                       $c = "_";
                               }
                       } elseif ( ($dec == 61) || ($dec < 32 ) || ($dec > 126) ) {
                               $h2 = floor($dec/16);
                               $h1 = floor($dec%16);
                               $c = $escape.$hex["$h2"].$hex["$h1"];
                       }
                       if ( (strlen($newline) + strlen($c)) >= $line_max ) {
                               $output .= $charset.$newline.$eol;
                               $newline = "";
                               if ( $dec == 46 ) {
                                       $c = "=2E";
                               }
                       }
                       $newline .= $c;
               } // end of for
               $output .= $charset.$newline.$eol;
       } // end of while
       return trim(str_replace("\r\n","\n",$output));
}