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.

comp/src/gb.net.smtp/.component

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

comp/src/gb.net.smtp/.project

@@ -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

comp/src/gb.net.smtp/.src/Encode.module

@@ -45,16 +45,16 @@ Public Sub PrintQuoted(hStream As Stream, sStr As String, bDebug As Boolean)
         If bDebug Then Error "=3D";
         W += 3
         
-      Case 10 'newline
+      ' 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
         
-        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
         
         If Asc(sCar) < 33 Or If Asc(sCar) > 126 Then