Do not encode newline characters as newlines (!) in quoted encoding.

[GB.NET.SMTP]
* BUG: Do not encode newline characters as newlines (!) in quoted encoding. See RFC 2049 at the end of page #10.
This commit is contained in:
gambas 2020-12-04 18:59:10 +01:00
parent b45a677cbe
commit 817c860c4d
5 changed files with 36 additions and 30 deletions

View File

@ -1,4 +1,4 @@
[Component]
Key=gb.net.smtp
Version=3.14.90
Version=3.15.90
Requires=gb.net

Binary file not shown.

Before

Width:  |  Height:  |  Size: 16 KiB

After

Width:  |  Height:  |  Size: 7.9 KiB

View File

@ -2,9 +2,10 @@
Title=SMTP client
Startup=Main
Icon=.hidden/control/smtpclient.png
Version=3.14.90
Version=3.15.90
VersionFile=1
Component=gb.net
Environment="GB_PCODE_VERSION=3.8"
TabSize=2
Language=fr
Type=Component

View File

@ -45,15 +45,15 @@ Public Sub PrintQuoted(hStream As Stream, sStr As String, bDebug As Boolean)
If bDebug Then Error "=3D";
W += 3
Case 10 'newline
If I > 1 And If Asc(sLastCar) <= 32 Then
Print #hStream, "="
If bDebug Then Error "="
Endif
Print #hStream
If bDebug Then Error
W = 0
' Case 10 'newline
'
' If I > 1 And If Asc(sLastCar) <= 32 Then
' Print #hStream, "="
' If bDebug Then Error "="
' Endif
' Print #hStream
' If bDebug Then Error
' W = 0
Default

File diff suppressed because one or more lines are too long