From jidzikowski at common-lisp.net  Tue Oct 16 17:33:19 2007
From: jidzikowski at common-lisp.net (jidzikowski)
Date: Tue, 16 Oct 2007 13:33:19 -0400 (EDT)
Subject: [cl-smtp-cvs] CVS cl-smtp
Message-ID: <20071016173319.2ADD4330D5@common-lisp.net>

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory clnet:/tmp/cvs-serv1543

Modified Files:
	attachments.lisp 
Log Message:
revert the #-allegro part in base64-encode-file to use cl-base64
thanks Attila Lendvai for the patch



--- /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp	2007/09/05 09:35:51	1.3
+++ /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp	2007/10/16 17:33:19	1.4
@@ -103,16 +103,16 @@
 	  ;; encode the buffer and write out to stream 
 	  #+allegro
 	  (write-string (excl:usb8-array-to-base64-string 
-			 (if (< byte-count max-buffer-size)
-			     (trimmed-buffer byte-count buffer)
-			     buffer)
-			 wrap-at-column) sock)
+			   (if (< byte-count max-buffer-size)
+				(trimmed-buffer byte-count buffer)
+				buffer)
+			   wrap-at-column) sock)
 	  #-allegro
-	  (s-base64:encode-base64-bytes 
+	  (cl-base64:usb8-array-to-base64-stream 
 	   (if (< byte-count max-buffer-size)
 	       (trimmed-buffer byte-count buffer)
 	       buffer) 
-	   sock t)
+	   sock :columns wrap-at-column)
 	  (force-output sock)
 	  ;;-- when finished reading exit do loop 
 	  (when (< byte-count max-buffer-size)



From jidzikowski at common-lisp.net  Thu Oct 18 19:10:37 2007
From: jidzikowski at common-lisp.net (jidzikowski)
Date: Thu, 18 Oct 2007 15:10:37 -0400 (EDT)
Subject: [cl-smtp-cvs] CVS cl-smtp
Message-ID: <20071018191037.9F7C5330CC@common-lisp.net>

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory clnet:/tmp/cvs-serv6669

Modified Files:
	CHANGELOG cl-smtp.asd 
Log Message:
new version 20071018.1



--- /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG	2007/09/04 19:59:50	1.7
+++ /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG	2007/10/18 19:10:37	1.8
@@ -1,10 +1,15 @@
+Version 20071018.1
+2007.10.18
+Reverted the non allegro base64 functionality in attachment.lisp,
+now it is used cl-base64 again. Thanks Attila Lendvai for the bug report.
+Change attachments.lisp, cl-smtp.asd, CHANGELOG
+
 Version 20070904.1
 2007-09-04
 Remove implementation dependent sockets code by adding usocket dependency.
 Change cl-smtp.asd cl-smtp.lisp README INSTALL
  (remove acl.lisp clisp.lisp cmucl.lisp sbcl.lisp lispworks.lisp openmcl.lisp)
 
-
 Version 20060404.1
 2006-04-04
 "ADD" support for attachment, thanks Brian Sorg for the implementation
--- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd	2007/09/04 18:56:58	1.8
+++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd	2007/10/18 19:10:37	1.9
@@ -29,7 +29,7 @@
       (print ,str)))
 
 (asdf:defsystem :cl-smtp
-        :version "20070904.1"
+        :version "20071018.1"
 	:depends-on (:usocket #-allegro :cl-base64)
 	:components ((:file "cl-smtp" :depends-on ("attachments"))
 		     (:file "attachments")))