anchor.diff:  (html-email-base
     (html
       (:p :style *style-p*
  -     "Greetings,")
  -    
  -    (:p :style *style-p*
  -"At some point last year, likely at a talk given by Charles Eisenstein, you signed up to be notified when Kindista.org was available in your area.  Although it has taken longer than we had hoped, we are excited to invite you to join our gift-economy network!")
  -
  -    (:p :style *style-p*
  -     " You may be one of the first people to sign up in your local area. If that is the case, please start by inviting your friends to join and please feel free to contact us for suggestions about how to jump start a new sharing network in your local community. ")
  -     
  +      "Hi " (str name) ","
  +      "Here is the invitation you requested to join Kindista!")
  +
       (:p :style *style-p*
        "Your invitation code is " (:strong (str (write-to-string token)) ".")
        (:br)
  
positive.code:                                                                    :text text))))
  
  (defun requested-invite-email-text (token name email &key text)
  (s+ "Greetings,
  "
  "
  At some point last year, likely at a talk given by Charles Eisenstein, you signed up to be notified when Kindista.org was available in your area.  Although it has taken longer than we had hoped, we are excited to invite you to join our gift-economy network!
  "
  
  "
  You may be one of the first people to sign up in your local area. If that is the case, please start by inviting your friends to join and please feel free to contact us for suggestions about how to jump start a new sharing network in your local community."
  
  "
  
  Your invitation code is " (write-to-string token) ".
  
negative.code:       "Thanks for sharing your gifts with us!")
  
      (:p "-The Kindista Team"))))
  