From 093c9d556a266254a8ceb1124309436d207e5b5e Mon Sep 17 00:00:00 2001
From: Thomas Hintz <t@thintz.com>
Date: Mon, 17 Feb 2014 07:07:57 -0800
Subject: [PATCH] Add from-name.

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

diff --git a/cl-sendgrid.lisp b/cl-sendgrid.lisp
index ba0e938..d13f6ff 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 reply-to)
+(defun send-email (&key api-user api-key subject to text html from reply-to from-name)
   (let ((r (parse (flexi-streams:octets-to-string
                    (http-request "https://sendgrid.com/api/mail.send.json"
                                  :method :post
@@ -12,6 +12,7 @@
                                                ("subject" . ,subject)
                                                ("to" . ,to)
                                                ("replyto" . ,reply-to)
+                                               ("fromname" . ,from-name)
                                                ("text" . ,text)
                                                ("html" . ,html)
                                                ("from" . ,from))))