Commit 35fc4d13 authored by x0r's avatar x0r
Browse files

Make the X-Mailer header suppressable

In some scenarios, it may be desirable to suppress the X-Mailer header in
e-mails completely, because revealing the name and versions of the software used
to send e-mails may be a security concern.

This patch enables suppressing the X-Mailer header by binding
CL-SMTP::*X-MAILER* to NIL.
parent 2112657b
......@@ -438,9 +438,10 @@
(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: ~A"
(rfc2045-q-encode-string
*x-mailer* :external-format external-format)))
(when *x-mailer*
(write-to-smtp stream (format nil "X-Mailer: ~A"
(rfc2045-q-encode-string
*x-mailer* :external-format external-format))))
(when reply-to
(write-to-smtp stream (format nil "Reply-To: ~A"
(rfc2045-q-encode-string
......
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