[cl-smtp-cvs] CVS cl-smtp

[jidzikowski]

Update of /project/cl-smtp/cvsroot/cl-smtp
In directory clnet:/tmp/cvs-serv13911

Modified Files:
	cl-smtp.lisp 
Log Message:
don't set multipart header when send pure text message



--- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp	2007/11/03 23:53:29	1.8
+++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp	2007/11/04 00:01:49	1.9
@@ -90,9 +90,10 @@
 	(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-multipart-headers 
-	   sock :attachment-boundary (when attachments boundary) 
-	   :html-boundary html-boundary)
+	  (when (or attachments html-message)
+	    (send-multipart-headers 
+	     sock :attachment-boundary (when attachments boundary) 
+	     :html-boundary html-boundary))
 	  ;;----------- Send  the body Message ---------------------------
           ;;--- Send the proper headers depending on plain-text, 
           ;;--- multi-part or html email