cl-smtp-cvs

Download

cl-smtp-cvs@common-lisp.net

October 2007

1 participants
2 discussions

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 18 Oct '07

18 Oct '07

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")))

1 0

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 16 Oct '07

16 Oct '07

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)

1 0