Add reply-to.

cl-sendgrid.lisp

@@ -3,7 +3,7 @@
 (define-condition sendgrid-error (error)
   ((sendgrid-error-message :initarg :sendgrid-error-message :reader sendgrid-error-message)))
 
-(defun send-email (&key api-user api-key subject to text html from)
+(defun send-email (&key api-user api-key subject to text html from reply-to)
   (let ((r (parse (flexi-streams:octets-to-string
                    (http-request "https://sendgrid.com/api/mail.send.json"
                                  :method :post
@@ -11,6 +11,7 @@
                                                ("api_key" . ,api-key)
                                                ("subject" . ,subject)
                                                ("to" . ,to)
+                                               ("replyto" . ,reply-to)
                                                ("text" . ,text)
                                                ("html" . ,html)
                                                ("from" . ,from))))