From jidzikowski at common-lisp.net  Mon Aug 23 15:16:18 2010
From: jidzikowski at common-lisp.net (jidzikowski)
Date: Mon, 23 Aug 2010 11:16:18 -0400
Subject: [cl-smtp-cvs] CVS cl-smtp
Message-ID: <E1OnYl0-0002Zz-Gm@common-lisp.net>

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory cl-net:/tmp/cvs-serv9847

Modified Files:
	index.html 
Log Message:
typing error



--- /project/cl-smtp/cvsroot/cl-smtp/index.html	2010/06/21 09:06:27	1.4
+++ /project/cl-smtp/cvsroot/cl-smtp/index.html	2010/08/23 15:16:18	1.5
@@ -18,8 +18,8 @@
  <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> [20100621.1] Rewrite base64-encode-file in attachments.lisp, fixed wrap at column 
-and add #\Return#\Newline after each column, ignore keyword buffer-size.
-Fixed string-to-base64-string allegro part in cl-smtp.lisp (wrap-at-column nil).
+and add #\Return#\Newline after each column, ignore keyword buffer-size.<br/>
+Fixed string-to-base64-string allegro part in cl-smtp.lisp (wrap-at-column nil).<br/>
 Fixed finish-smtp-mail in cl-smtp, not use fresh-line on stream, send #\Return#\Newline.
 Add test for base64-encode-file.</p>
 
@@ -71,7 +71,7 @@
      <td class="working">working</td>
    </tr>
    <tr>
-     <td>OpemMCL</td>
+     <td>OpenMCL</td>
      <td class="working">working</td>
    </tr>
  </table>




From jidzikowski at common-lisp.net  Mon Aug 23 15:18:34 2010
From: jidzikowski at common-lisp.net (jidzikowski)
Date: Mon, 23 Aug 2010 11:18:34 -0400
Subject: [cl-smtp-cvs] CVS cl-smtp
Message-ID: <E1OnYnC-0002c2-6e@common-lisp.net>

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory cl-net:/tmp/cvs-serv10002

Modified Files:
	cl-smtp.lisp 
Log Message:
use variable *x-mailer* without any additional text



--- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp	2010/06/11 09:48:35	1.17
+++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp	2010/08/23 15:18:34	1.18
@@ -18,7 +18,7 @@
 
 (in-package :cl-smtp)
 
-(defparameter *x-mailer* (format nil "(~A ~A)" 
+(defparameter *x-mailer* (format nil "cl-smtp (~A ~A)" 
 				 (lisp-implementation-type)
 				 (lisp-implementation-version)))
 
@@ -430,7 +430,7 @@
   (write-to-smtp stream (format nil "Subject: ~A" 
                                 (rfc2045-q-encode-string 
                                  subject :external-format external-format)))
-  (write-to-smtp stream (format nil "X-Mailer: cl-smtp~A" 
+  (write-to-smtp stream (format nil "X-Mailer: ~A" 
 				(rfc2045-q-encode-string 
                                  *x-mailer* :external-format external-format)))
   (when reply-to