[cl-smtp-cvs] CVS cl-smtp

[jidzikowski]

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory cl-net:/tmp/cvs-serv20432

Modified Files:
	attachments.lisp 
Log Message:
fixed error when send more than 1 attachment
 - add a blank line between attachments



--- /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp	2007/11/05 19:58:24	1.6
+++ /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp	2010/04/20 10:10:58	1.7
@@ -164,4 +164,5 @@
 		  (print-debug (format nil "~% Eof is ~a~%" eof?))
 		  (when (or (zerop buffer-size)
 			    eof?)
+                    (write-blank-line sock)
 		    (return))))))))