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)