CMailTools::EncodeHeaderFrom

static function EncodeHeaderFrom($text, $charset)
{
	$i = CUtil::BinStrlen($text);
	while($i > 0)
	{
		if(ord(CUtil::BinSubstr($text, $i-1, 1))>>7)
			break;
		$i--;
	}
	if($i==0)
		return $text;
	else
		return "=?".$charset."?B?".base64_encode(CUtil::BinSubstr($text, 0, $i))."?=".CUtil::BinSubstr($text, $i);
}