Add reply-to.

2014-02-17 07:04:05 -08:00
parent f354c5e29c
commit e2148ca05d
1 changed files with 2 additions and 1 deletions
--- a/cl-sendgrid.lisp
+++ b/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))))