<?
/** Mail Functions ********************************************
	Send mails in UTF-8 enchoding with readable headers
@NOTE	http://php.net/imap_8bit (2nd comment) - replacese PHP`s built-in 'imap_8bit'
@AUTHOR	Tomix
@NOTE	http://php.net/manual/en/function.mail.php (7th comment)
@AUTHOR	umu
	Comments stripped to reduce the code size. Refer to the origin links to see the raw sources.
	Most of the script is copied one to one except few changes.
***************************************************************/

	function quoted_printable_encode($sText,$bEmulate_imap_8bit=true) {
		$aLines=explode(chr(13).chr(10),$sText);
		for ($i=0;$i<count($aLines);$i++) {
			$sLine =& $aLines[$i];
			if (strlen($sLine)===0) continue; // do nothing, if empty
			$sRegExp = '/[^\x09\x20\x21-\x3C\x3E-\x7E]/e';
			if ($bEmulate_imap_8bit)
				$sRegExp = '/[^\x20\x21-\x3C\x3E-\x7E]/e';
			
			$sReplmt = 'sprintf( "=%02X", ord ( "$0" ) ) ;';
			$sLine = preg_replace( $sRegExp, $sReplmt, $sLine ); 
			{
				$iLength = strlen($sLine);
				$iLastChar = ord($sLine{$iLength-1});
				
				if (!($bEmulate_imap_8bit && ($i==count($aLines)-1)))
					
				if (($iLastChar==0x09)||($iLastChar==0x20)) {
						$sLine{$iLength-1}='=';
						$sLine .= ($iLastChar==0x09)?'09':'20';
				}
			}
			if ($bEmulate_imap_8bit) {
				$sLine=str_replace(' =0D','=20=0D',$sLine);
			}
			preg_match_all( '/.{1,73}([^=]{0,2})?/', $sLine, $aMatch );
			$sLine = implode( '=' . chr(13).chr(10), $aMatch[0] ); // add soft crlf's
		}
		return implode(chr(13).chr(10),$aLines);
	}

	function header_quoted_printable_encode($string, $encoding='UTF-8') {
		$string = str_replace(" ", "_", trim($string)) ;
		$string = str_replace("?", "=3F", str_replace("=\r\n", "", quoted_printable_encode($string))) ;
		$string = chunk_split($string, 73);
		$string = substr($string, 0, strlen($string)-2);
		$string = str_replace("\r\n", "?=".HEAD_CRLF." =?".$encoding."?Q?", $string) ;

		return '=?'.$encoding.'?Q?'.$string.'?=';
	}

	function imap8bit(&$item, $key) {
		$item = header_quoted_printable_encode($item);
	}

	/**
	@input params: email (string $to, string $subject, string $message [, string $additional_headers ] )
	@returns boolean: result of <mail()> (true on success, false on fail)
	**/
	function email($e_mail, $subject, $message, $headers="") {
		if ( strlen($headers) )
			$headers .= "\r\n";
		$headers .= "MIME-Version: 1.0\r\n";
		$headers .= "Content-type: text/plain; charset=utf-8\r\n";
		$headers .= "Content-Transfer-Encoding: quoted-printable\r\n";
		
		$subject = wordwrap($subject, 25, "\n", FALSE);
		$subject = explode("\n", $subject);
		array_walk($subject, imap8bit);
		$subject = implode("\r\n ", $subject);
		$subject = $subject;

		$message = quoted_printable_encode($message);

		return(mail("$e_mail", "$subject", "$message", "$headers"));
	}

	/*
		Test how it works
	*/

	/*
	$result = email (
		"user@mail.example",
		"Кирилица i latinica",
		"Тест\nTest\nTest тест."//,
		//$more_headers
	);
	*/
?>