From e2148ca05d52487166a85fc48bcfa9883694f133 Mon Sep 17 00:00:00 2001
From: Thomas Hintz <t@thintz.com>
Date: Mon, 17 Feb 2014 07:04:05 -0800
Subject: [PATCH] Add reply-to.

---
 cl-sendgrid.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cl-sendgrid.lisp b/cl-sendgrid.lisp
index 8fa274b..ba0e938 100644
--- 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))))