2ch用ブラウザ「ホットゾヌ」

i := LastDelimiter(',', ALine);
if (i > 0) then begin
　ASubject := MonaUtils.DecodeHtmlEsc(Copy(ALine,i+1,Length(ALine)-i));
　ALine := Trim(Copy(ALine,1,i - 1));
↓
i := LastDelimiter('>', ALine);
if (i > 0) then begin
　ASubject := MonaUtils.DecodeHtmlEsc(Copy(ALine,i+1,Length(ALine)-i));
　ALine := Trim(Copy(ALine,1,i - 2));

if (b) then ALine := StringReplace(ALine,'，',',',[rfReplaceAll]);
if (ALine[Length(ALine)] = ',') then ALine := Copy(ALine,1,Length(ALine) - 1);
↓
if (Copy(ALine,Length(ALine) - 1, 2) = '<>') then ALine := Copy(ALine,1,Length(ALine) - 2);

ABody := StringReplace(ALine,'＠｀',',',[rfReplaceAll]) + '<BR><BR>';
↓
ABody := ALine + '<BR><BR>';

・Zonutils.pasのDivideNichSubjectを以下のように変更

Title := StringReplace(Title, '＠｀',',',[rfReplaceAll]);
↓
{削除}

うー誤爆してる。
>>128の前に
http://teri.2ch.net/test/read.cgi?bbs=accuse&key=988420044&st=613&to=613&nofirst=true
が入ると思ってください。
　あとこれ投稿しようとして気付きましたが、投稿中に<BR>が含まれてい
ると、プレビューではその部分が改行になってしまうようです。