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: <E1UDFi2-00022f-6C@common-lisp.net>

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