[cl-smtp-cvs] CVS cl-smtp

[jidzikowski]

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)