[cl-smtp-cvs] CVS cl-smtp
jidzikowski
jidzikowski at common-lisp.net
Mon Nov 5 19:58:24 UTC 2007
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; }
More information about the Cl-smtp-cvs
mailing list