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