Commit 66a46fc1 authored by Jan Idzikowski's avatar Jan Idzikowski
Browse files

- for allegro cl don't use cl-base64

- use write-blank-line in send-smtp
parent e53502c7
......@@ -133,9 +133,9 @@ Wrap-at-column controls where the encode string is divided for line breaks."
#-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 @@ Wrap-at-column controls where the encode string is divided for line breaks."
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
......
......@@ -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")))
......@@ -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)
......
<?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>
.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; }
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment