luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.NET.SMTP]

Browse source 
* BUG: Format mime parts Content-Type correctly in all cases.


git-svn-id: svn://localhost/gambas/trunk@8087 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2017-02-07 00:04:19 +00:00
parent 2bc3143a32
commit 9676fc8ba1
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
comp/src/gb.net.smtp/.src/SmtpPart.class
View file

@ -25,15 +25,17 @@ Private Sub CheckMime()
Dim sCharset As String Dim sCharset As String
If Not Mime Then If Not Mime Then
Mime = "text/plain;charset=" & System.Charset Mime = "text/plain"
Charset = "utf-8"
Encoding = Encode.ENC_QUOTED Encoding = Encode.ENC_QUOTED
Return Return
Endif Endif
iPos = RInStr(Mime, ";") iPos = RInStr(Mime, ";")
If iPos Then If iPos Then
If Left(Mime, iPos - 1) Not Like "*/*" Then Goto SYNTAX_ERROR
sCharset = Trim(Mid$(Mime, iPos + 1)) sCharset = Trim(Mid$(Mime, iPos + 1))
Mime = Left(Mime, iPos - 1)
If Mime Not Like "*/*" Then Goto SYNTAX_ERROR
If sCharset Not Begins "charset=" Then Goto SYNTAX_ERROR If sCharset Not Begins "charset=" Then Goto SYNTAX_ERROR
Charset = Trim(Mid$(sCharset, 9)) Charset = Trim(Mid$(sCharset, 9))
Else Else