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]);
↓
{削除}