Commit e53502c7 authored by Jan Idzikowski's avatar Jan Idzikowski
Browse files

don't set multipart header when send pure text message

parent 10018ea9
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment