Update of /project/cl-smtp/cvsroot/cl-smtp
In directory tiger.common-lisp.net:/tmp/cvs-serv7745
Modified Files:
CHANGELOG cl-smtp.asd cl-smtp.lisp
Log Message:
Fix bug in smtp-command to return all lines from smtp server
--- /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2013/01/21 10:01:08 1.22
+++ /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2013/03/06 14:52:46 1.23
@@ -1,3 +1,9 @@
+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
--- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2013/01/21 10:01:08 1.21
+++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2013/03/06 14:52:46 1.22
@@ -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
--- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2013/01/21 09:39:26 1.21
+++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2013/03/06 14:52:46 1.22
@@ -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
