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