From jidzikowski at common-lisp.net Wed Mar 6 14:52:46 2013 From: jidzikowski at common-lisp.net (CVS User jidzikowski) Date: Wed, 06 Mar 2013 06:52:46 -0800 Subject: [cl-smtp-cvs] CVS cl-smtp Message-ID: 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