Commit 96d3dafe authored by Jan Idzikowski's avatar Jan Idzikowski
Browse files

use variable *x-mailer* without any additional text

parent 77d6c2a2
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
(in-package :cl-smtp) (in-package :cl-smtp)
(defparameter *x-mailer* (format nil "(~A ~A)" (defparameter *x-mailer* (format nil "cl-smtp (~A ~A)"
(lisp-implementation-type) (lisp-implementation-type)
(lisp-implementation-version))) (lisp-implementation-version)))
...@@ -430,7 +430,7 @@ ...@@ -430,7 +430,7 @@
(write-to-smtp stream (format nil "Subject: ~A" (write-to-smtp stream (format nil "Subject: ~A"
(rfc2045-q-encode-string (rfc2045-q-encode-string
subject :external-format external-format))) subject :external-format external-format)))
(write-to-smtp stream (format nil "X-Mailer: cl-smtp~A" (write-to-smtp stream (format nil "X-Mailer: ~A"
(rfc2045-q-encode-string (rfc2045-q-encode-string
*x-mailer* :external-format external-format))) *x-mailer* :external-format external-format)))
(when reply-to (when reply-to
......
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