[cl-smtp-cvs] CVS cl-smtp

[jidzikowski]

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