[cl-smtp-cvs] CVS update: cl-smtp/CHANGELOG cl-smtp/README cl-smtp/cl-smtp.asd cl-smtp/cl-smtp.lisp cl-smtp/clisp.lisp

[Jan Idzikowski]

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory common-lisp.net:/tmp/cvs-serv15472

Modified Files:
	CHANGELOG README cl-smtp.asd cl-smtp.lisp clisp.lisp 
Log Message:
add win32 support for clisp, remove :cl-smtp-authentication, 
always use CL-BASE64


Date: Tue Dec 20 15:37:54 2005
Author: jidzikowski

Index: cl-smtp/CHANGELOG
diff -u cl-smtp/CHANGELOG:1.3 cl-smtp/CHANGELOG:1.4
--- cl-smtp/CHANGELOG:1.3	Sun Dec 11 21:45:54 2005
+++ cl-smtp/CHANGELOG	Tue Dec 20 15:37:51 2005
@@ -1,6 +1,13 @@
+Version 20051220.1
+2005-12-20
+"ADD" win32 support for clisp
+"REMOVE" :cl-smtp-authentication
+"CHANGE" always use CL-BASE64 package 
+Change cl-smtp.asd, cl-smtp.lisp, clisp.lisp, README, CHANGELOG
+
 Version 20051211.1
 2005-12-11
-add :cl-smtp-authentication for reader macro, that you can use cl-smtp with and
+"ADD" :cl-smtp-authentication for reader macro, that you can use cl-smtp with and
 without authentication support
 Change cl-smtp.asd, cl-smtp.lisp, README, CHANGELOG
 


Index: cl-smtp/README
diff -u cl-smtp/README:1.2 cl-smtp/README:1.3
--- cl-smtp/README:1.2	Sun Dec 11 21:45:54 2005
+++ cl-smtp/README	Tue Dec 20 15:37:52 2005
@@ -2,18 +2,14 @@
 CL-SMTP is a simple lisp smtp client. 
 It works in ACL, SBCL, CMUCL, OPENMCL, LISPWORKS and CLISP.
 
-new with authentication support for PLAIn and LOGIN authentication method
+new with authentication support for PLAIN and LOGIN authentication method
+
+used CL-BASE64 package
 
 See INSTALL for prerequisites and build details.
 
 To use cl-smtp:
 
-(asdf:operate 'asdf:load-op 'cl-smtp)
-
-For use cl-smtp with authentication support you need cl-base64 package and
-add :cl-smtp-authentication to features
-
-(push :cl-smtp-authentication *features*)
 (asdf:operate 'asdf:load-op 'cl-smtp)
 
 ------------------------------------------------


Index: cl-smtp/cl-smtp.asd
diff -u cl-smtp/cl-smtp.asd:1.3 cl-smtp/cl-smtp.asd:1.4
--- cl-smtp/cl-smtp.asd:1.3	Sun Dec 11 21:45:54 2005
+++ cl-smtp/cl-smtp.asd	Tue Dec 20 15:37:52 2005
@@ -26,12 +26,9 @@
 (in-package :cl-smtp)
 
 (asdf:defsystem :cl-smtp
-        :version "20051211.1"
+        :version "20051220.1"
 	:depends-on
-	        #+(and cl-smtp-authentication (not allegro))
 	        (:cl-base64)
-		#-cl-smtp-authentication
-		()
 	:components 
 		(#+sbcl(:file "sbcl")
 		 #+allegro(:file "acl")


Index: cl-smtp/cl-smtp.lisp
diff -u cl-smtp/cl-smtp.lisp:1.3 cl-smtp/cl-smtp.lisp:1.4
--- cl-smtp/cl-smtp.lisp:1.3	Sun Dec 11 21:45:54 2005
+++ cl-smtp/cl-smtp.lisp	Tue Dec 20 15:37:52 2005
@@ -59,9 +59,8 @@
 
 (defun string-to-base64-string (str)
   (declare (ignorable str))
-  #+(and cl-smtp-authentication allegro) (excl:string-to-base64-string str)
-  #+(and cl-smtp-authentication (not allegro))
-	 (cl-base64:string-to-base64-string str))
+  #+allegro (excl:string-to-base64-string str)
+  #-allegro (cl-base64:string-to-base64-string str))
 
 
 (defun send-email (host from to subject message 
@@ -78,9 +77,6 @@
 (defun send-smtp (host from to subject message 
 		  &key (port 25) cc bcc reply-to extra-headers
 		       display-name authentication)
-  #-cl-smtp-authentication
-  (when authentication
-    (error "cl-smtp was not compiled with authentication support, push :cl-smtp-authentication to *features* bevor load cl-smtp.asd"))
   (let ((sock (socket-stream (make-smtp-socket host port))))
     (unwind-protect
 	(progn


Index: cl-smtp/clisp.lisp
diff -u cl-smtp/clisp.lisp:1.1.1.1 cl-smtp/clisp.lisp:1.2
--- cl-smtp/clisp.lisp:1.1.1.1	Tue Nov  1 19:34:57 2005
+++ cl-smtp/clisp.lisp	Tue Dec 20 15:37:52 2005
@@ -20,7 +20,10 @@
 
 (defun make-smtp-socket (host port)
   (handler-case
-      (socket:socket-connect port host :element-type 'character)
+      (socket:socket-connect port host :element-type 'character
+			     :external-format 
+			     (ext:make-encoding :charset charset:utf-8
+						:line-terminator :unix))
     (serious-condition (e)
       (error "could not create client socket:~A" e))))
 
@@ -28,4 +31,8 @@
   socket)
 
 (defun get-host-name ()
-  (linux:gethostname 256))
+  #+linux(linux:gethostname 256)
+  #-linux(let ((str (machine-instance)))
+	   (if (position #\Space str)
+	       (subseq str 0 (position #\Space str))
+	     str)))