Add a working SMTP client. Needs some cleaning but almost done!

doc/reference/std/net/smtp.md

@@ -0,0 +1,23 @@
+# SMTP: Simple Mail Tranfser Protocol
+
+    (import :std/net/smtp)
+
+    > (def mail (smtp-connect "localhost:8025"))
+    > (send-mail mail "<[email protected]>" "[email protected]"
+        To: "All Users <[email protected]>"
+        From: "No Reply <[email protected]>"
+        Subject: "This is a subject"
+        "Body not by itself")
+    ("250 2.0.0 Ok: queued as 1E29D10201C2")
+
+    > (send-mail mail "<[email protected]>" "[email protected]" "No headers just body")
+    ("250 2.0.0 Ok: queued as 1111A10201C2")
+
+    > (send-mail mail "<[email protected]>" "[email protected]"
+      [Subject: "Headers can be a plist"] From: "Nested even!"
+      "because who knows")
+    ("250 2.0.0 Ok: queued as 5C4F810201C2")
+
+    > (SMTP-QUIT mail)
+    ("221 2.0.0 Bye")
+

src/std/build-spec.ss

@@ -222,6 +222,17 @@
     "net/s3/interface"
     "net/s3/api"
     "net/s3/sigv4"
+    "net/smtp/interface"
+    "net/smtp/session"
+    "net/smtp/client"
+    "net/smtp/connection"
+    "net/smtp/data"
+    "net/smtp/headers"
+    "net/smtp/api"
+    "net/smtp"
+    "net/websocket/server"
+    "net/websocket/api"
+    "net/websocket"
     "net/websocket/interface"
     "net/websocket/socket"
     "net/websocket/client"

src/std/net/smtp.ss

@@ -0,0 +1 @@
+(import ./smtp/api) (export (import: ./smtp/api))