Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv8540
Modified Files: attachments.lisp cl-smtp.asd cl-smtp.lisp Added Files: index.html style.css Log Message: - for allegro cl don't use cl-base64 - use write-blank-line in send-smtp
--- /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2007/11/03 23:53:29 1.5 +++ /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2007/11/05 19:58:24 1.6 @@ -133,9 +133,9 @@ #-allegro (cl-base64:usb8-array-to-base64-stream buffer sock :columns wrap-at-column) - ;; otherwise process file in chunks. + ;; otherwise process file in chunks. ;; The extra encoded-string, - ;; and its subseq functions are brute force methods + ;; and its subseq functions are brute force methods ;; to properly handle the wrap-at-column feature ;; between buffers. ;; Not the most efficient way, @@ -148,7 +148,7 @@ buffer)) (encoded-string #+allegro - (cl-base64:usb8-array-to-base64-string + (excl:usb8-array-to-base64-string trimmed-buffer) #-allegro (cl-base64:usb8-array-to-base64-string --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2007/11/03 23:53:29 1.10 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2007/11/05 19:58:24 1.11 @@ -29,10 +29,10 @@ (print ,str)))
(asdf:defsystem :cl-smtp - :version "20071104.1" + :version "20071105.1" :perform (load-op :after (op webpage) (pushnew :cl-smtp cl:*features*)) :depends-on (:usocket #-allegro :cl-base64) :components ((:file "cl-smtp" :depends-on ("attachments")) - (:file "attachments") - (:file "mime-types"))) + (:file "attachments") + (:file "mime-types"))) --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2007/11/04 00:01:49 1.9 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2007/11/05 19:58:24 1.10 @@ -89,7 +89,10 @@ (unwind-protect (progn (open-smtp-connection sock :authentication authentication) - (send-smtp-headers sock :from from :to to :cc cc :bcc bcc :reply-to reply-to :display-name display-name :extra-headers extra-headers :subject subject) + (send-smtp-headers sock :from from :to to :cc cc :bcc bcc + :reply-to reply-to + :display-name display-name + :extra-headers extra-headers :subject subject) (when (or attachments html-message) (send-multipart-headers sock :attachment-boundary (when attachments boundary) @@ -139,8 +142,7 @@ (send-attachment sock attachment boundary buffer-size)) (send-end-marker sock boundary)) (write-char #. sock) - (write-char #\Return sock) - (write-char #\NewLine sock) + (write-blank-line sock) (force-output sock) (multiple-value-bind (code msgstr) (read-from-smtp sock)
--- /project/cl-smtp/cvsroot/cl-smtp/index.html 2007/11/05 19:58:24 NONE +++ /project/cl-smtp/cvsroot/cl-smtp/index.html 2007/11/05 19:58:24 1.1 <?xml version="1.0"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> <title>CL-SMTP</title> <link rel="stylesheet" type="text/css" href="style.css"/> <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/> </head>
<body> <div class="header"> <h1>CL-SMTP at common-lisp.net</h1> </div>
<h3>Introduction</h3>
<p>CL-SMTP is a simple lisp Networking Library that provides SMTP client protocol, supported LOGIN and PLAIN authentication methods.</p>
<p><b>New Version</b> [20071018.1] Reverted the non allegro base64 functionality in attachment.lisp, now it is used cl-base64 again. Thanks Attila Lendvai for the bug report.</p>
<h3>Download</h3>
<p>ASDF package <a href="cl-smtp.tar.gz">cl-smtp.tar.gz</a></p>
<h3>CVS</h3>
<p>You can <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=cl-smtp"> browse our CVS repository</a> or download the current development tree via anonymous cvs, as described <a href="/faq.shtml#checkout">here</a></p>
<h3>Portability</h3>
<p>CL-SMTP requires USOCKET and CL-BASE64 (CL-BASE64 isn't a requirement on ACL)</p> <p>It works in all implementations supported by its dependencies (Allegro, SBCL, CMU CL, OpenMCL, Lispworks, CLISP and ECL).</p> <p>Test results for Linux/x86/amd64:</p> <table cellspacing="0" cellpadding="2" border="1"> <thead> <tr> <th>Lisp Implementation</th> <th>Status</th> <th>Comments</th> </tr> </thead> <tr> <td>Allegro</td> <td class="working">working</td> </tr> <tr> <td>CLISP</td> <td class="working">working</td> </tr> <tr> <td>CMU CL</td> <td class="working">working</td> </tr> <tr> <td>Lispworks</td> <td class="working">working</td> </tr> <tr> <td>SBCL</td> <td class="working">working</td> </tr> <tr> <td>OpemMCL</td> <td class="working">working</td> </tr> </table>
<h3>Mailing Lists</h3> <ul> <li> <a href="http://www.common-lisp.net/mailman/listinfo/cl-smtp-devel"> CL-SMTP-devel</a><br/>for developers</li> <li> <a href="http://www.common-lisp.net/mailman/listinfo/cl-smtp-cvs"> CL-SMTP-cvs</a><br/>CVS log feed.</li> </ul>
<div class="footer"> <a href="mailto:jidzikowski (at) common-lisp (dot) net">Jan Idzikowski</a>, 24. May 2005. </div>
<div class="check"> <a href="http://validator.w3.org/check/referer"> Valid XHTML 1.0 Strict</a> </div> </body> </html> --- /project/cl-smtp/cvsroot/cl-smtp/style.css 2007/11/05 19:58:24 NONE +++ /project/cl-smtp/cvsroot/cl-smtp/style.css 2007/11/05 19:58:24 1.1
.header { font-size: medium; background-color:#336699; color:#ffffff; border-style:solid; border-width: 5px; border-color:#002244; padding: 1mm 1mm 1mm 5mm; }
.footer { font-size: small; font-style: italic; text-align: right; background-color:#336699; color:#ffffff; border-style:solid; border-width: 2px; border-color:#002244; padding: 1mm 1mm 1mm 1mm; }
.footer a:link { font-weight:bold; color:#ffffff; text-decoration:underline; }
.footer a:visited { font-weight:bold; color:#ffffff; text-decoration:underline; }
.footer a:hover { font-weight:bold; color:#002244; text-decoration:underline; }
.check {font-size: x-small; text-align:right;}
.check a:link { font-weight:bold; color:#a0a0ff; text-decoration:underline; }
.check a:visited { font-weight:bold; color:#a0a0ff; text-decoration:underline; }
.check a:hover { font-weight:bold; color:#000000; text-decoration:underline; }
th { background-color: #8b0000; color: white; text-align: left; }
.working { background-color: #90ee90; }
.broken { background-color: #c5c5c5; }