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