//Leency & SoUrcerer, LGPL

void ParseMail()
{
	dword line_off, new_buf;
	char tline[256];

	if ( mailend-mailstart > 9) && (strncmp(mailend-5,"\n.\n",5)==0) // note that c-- assembles "\n.\n" to 0x0d, 0x0a, 0x2e, 0x0d, 0x0a
	{
		mailend -= 5;
		DSBYTE[mailend] = '\0';
		if (strstr(mailstart, "+OK")!=mailstart) 
		{
			aim = GET_ANSWER_RETR;
			mailend = mailstart;
			debug("GET_ANSWER_RETR != +OK, retry GET_ANSWER_RETR");
			return;
		}
		aim=NULL;
		mailsize = mailend - mailstart;

		debug("Getting QP");
		if (strstri(mailstart, "quoted-printable")!=0)
		{
			new_buf = malloc(mailsize);
			qp_decode stdcall (mailstart, new_buf, mailsize);
			if (EAX==-1) debug("Too small buffer to convert QUOTED-PRINTABLE");
			else
			{
				free(mailstart);
				mailstart = new_buf;
				mailsize = strlen(mailstart);
				mailend = mailsize + mailstart;
			}
		}
		debug("GetHeaders: From, To, Date, Subject");
		GetHeader(#from, "\nFrom:");
		GetHeader(#to,   "\nTo:");
		GetHeader(#date, "\nDate:");
		GetHeader(#subj, "\nSubject:");
		debug("Get mdata");
		mdata = strstr(mailstart, "\x0a\x0d") + 3;		// 0x0d 0x0a, 0x0a
		debug("ConvertToDOS");
		ConvertToDOS(mdata, mailstart);
		debug("FromHTMLtoTXT");
		FromHTMLtoTXT();
		letter_view.first = letter_view.count = 0;
		
		line_off = mdata;
		while (line_off>1)
		{
			line_off = GetNextLine(line_off);
			letter_view.count++;	
		}
		debug("SetAtrFromCurr");
		atr.SetAtrFromCurr(mail_list.current+1);
		DrawMailBox();
	}
}

void ConvertToDOS(dword inbuf, searchin)
{
	dword dos_buf=0;
	if (use_iconv==1)
	{
		cur_charset = CH_CP866;
		if (strstri(searchin, "windows-1251")!=0) || (strstri(searchin, "windows1251")!=0) 
			{ dos_buf = ChangeCharset("CP1251", "CP866", inbuf);    cur_charset = CH_CP1251;}
		else if (strstri(searchin, "koi8-")!=0)
			{ dos_buf = ChangeCharset("KOI8-RU", "CP866", inbuf);   cur_charset = CH_KOI8;}
		else if (strstri(searchin, "utf-8")!=0) || (strstri(searchin, "utf8")!=0)
			{ dos_buf = ChangeCharset("UTF-8", "CP866", inbuf);     cur_charset = CH_UTF8;}
		else if (strstri(searchin, "iso8859-5")!=0) || (strstri(searchin, "iso-8859-5")!=0)
			{ dos_buf = ChangeCharset("ISO8859-5", "CP866", inbuf); cur_charset = CH_ISO8859_5;}
		else if (strstri(searchin, "windows-1252")!=0) || (strstri(searchin, "windows1252")!=0) 
			{ dos_buf = ChangeCharset("CP1252", "CP866", inbuf);    cur_charset = CH_CP1252;}
	}
	else
	{
		if (strstri(searchin, "windows-1251")!=0) wintodos( inbuf); else
		if (strstri(searchin, "koi8-")!=0)        koitodos( inbuf); else
		if (strstri(searchin, "utf-8")!=0)        utf8rutodos( inbuf);
	}
}


void FromHTMLtoTXT()
{
	dword cur_chr, txt_buf_srt, txt_buf_end, is_tag=0;
	int i;
	if (strstri(mdata, "<html>")==0) && (strstri(mailstart, "text/html")==0) {debug("no html tags found"); return;}
	debug ("Mail got <html> code");
	cur_chr = mdata;
	txt_buf_srt = malloc(mailend - mailstart);
	txt_buf_end = txt_buf_srt;

	while (cur_chr < mailend)
	{
		if (DSBYTE[cur_chr]=='<') is_tag = 1;
		if (!is_tag)
		{
		 	DSBYTE[txt_buf_end] = DSBYTE[cur_chr];
		 	txt_buf_end++;
		 	_END:
		}
		if (DSBYTE[cur_chr]=='>') is_tag = NULL;
		cur_chr++;
	}
	DSBYTE[txt_buf_end] = '\0';
	strcpy(mdata, txt_buf_srt);
	mailend = strlen(mailstart) + mailstart;
	free(txt_buf_srt);
}


dword GetNextLine(dword start_offset)
{
	dword off_n = strstr(start_offset, "\n") + 1,  //разрыв строки
	      off_w = letter_view.w / 6 - 2 + start_offset, //max длинна скроки
	      off_m;
	off_m = off_w;
	if (off_n < off_w) return off_n;
	while (off_m > start_offset) //перенос по словам
	{
		if (DSBYTE[off_m]==' ') || (DSBYTE[off_m]=='\9') || (DSBYTE[off_m]=='-') return off_m;
		off_m--;
	}
	return off_w;
}

dword CopyBetweenOffsets(dword start, end) //do not forget to free(line) after use
{
	dword line, new_line;
	if (end <= start) return 0;
	line = new_line = malloc(end - start + 3);
	while (end > start) 
	{
		DSBYTE[new_line] = DSBYTE[start];
		start++;
		new_line++;
	}
	DSBYTE[new_line] = '\0';
	return line;
}


void GetHeader(dword workstr, searchstr)
{
	char tmpbuf[512];
	dword Qoff;
	int q_start, b_start;

	strcpyb(mailstart, workstr, searchstr, "\n");
	debug(searchstr);
	debug(workstr);
	if (strlen(workstr)<8) return;
	q_start = strstri(workstr, "?Q?");
	b_start = strstri(workstr, "?B?");
	if (q_start)
	{
		qp_decode stdcall (workstr, #tmpbuf, strlen(workstr));
		ConvertToDOS(#tmpbuf, workstr);	
		strcpy(workstr, #tmpbuf);
		Qoff = strstri(workstr, "?Q?");
		strcpy(workstr, Qoff);
	}

	//any text that goes after "?=" deletes now
	if (b_start)
	{
		base64_decode stdcall (b_start, #tmpbuf, strlen(b_start)-5);
		ConvertToDOS(#tmpbuf, workstr);	
		strcpy(workstr, #tmpbuf);
	}
	if (strlen(workstr)+10*6-Form.cwidth>0) { workstr=Form.cwidth/6+workstr-12; DSBYTE[workstr]='\0';}
}