Commit 3411fbd6 authored by Jan Idzikowski's avatar Jan Idzikowski

Fix bug in smtp-command to return all lines from smtp server

parent 6a0a9a10
Version 20130306.1
2013.03.06
Fix smtp-command to return all lines from smtp server
Thanks Jeff Cunningham for the bug report and test
Change cl-smtp.asd, cl-smtp.lisp, CHANGELOG
Version 20130121.1
2013.01.21
New version in cl-smtp.asd
......
......@@ -17,7 +17,7 @@
;;; Description: cl-smtp ASDF system definition file
(asdf:defsystem :cl-smtp
:version "20130121.1"
:version "20130306.1"
:perform (load-op :after (op webpage)
(pushnew :cl-smtp cl:*features*))
:depends-on (:usocket
......
......@@ -186,7 +186,7 @@
:expected-response-code expected-response-code
:response-code code
:response-message msgstr))))
lines))
(append lines (list msgstr))))
(defun do-with-smtp-mail (host envelope-sender to thunk &key port authentication ssl local-hostname (external-format :utf-8))
(usocket:with-client-socket (socket stream host port
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment