Fix MIME bug #26 (Pierre le Riche)

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@222 7c85be65-684b-0410-a082-b2ed4fbef004
2021-06-12 16:29:06 +00:00
parent 22e0067948
commit 039fa1c3b5
3 changed files with 38 additions and 9 deletions
--- a/mimemess.pas
+++ b/mimemess.pas
@@ -640,7 +640,7 @@ begin
    Secondary := 'plain';
    Description := 'Message text';
    Disposition := 'inline';
-    CharsetCode := IdealCharsetCoding(Value.Text, TargetCharset, IdealCharsets);
+    CharsetCode := IdealCharsetCoding(AnsiString(Value.Text), TargetCharset, IdealCharsets);
    EncodingCode := ME_QUOTED_PRINTABLE;
    EncodePart;
    EncodePartHeader;