anchor.diff:  #\linefeed #\linefeed
   "Please review this user's activity as soon as possible and approve their Kindista membership if appropriate.")))
   
  +(defun pending-offer-notification-email-html
  +  (id
  +   &aux (offer (db id))
  +        (userid (getf offer :by))
  +        (user (db userid)))
  +  (html-email-base
  +    (html
  +      (:p :style *style-p*
  +       "New Kindista user, "
  +       (str (getf user :name))
  +       " (ID:"
  +       userid
  +       "), posted a new offer." )
   
  +      (:h2 (str (getf offer :title)))
  +
  +      (:p :style *style-p*
  +       (str (getf offer :details)))
  +
  +      (str (email-action-button (strcat *email-url* "admin/pending-accounts")
  +                                "Review Account for Approval"))
  +
  +      (:p :style *style-p*
  + "Please review this user's activity as soon as possible and approve their Kindista membership if appropriate."))))
  
positive.code: ;;; Copyright 2012-2013 CommonGoods Network, Inc.
  ;;;
  ;;; This file is part of Kindista.
  ;;;
  
negative.code:                      "Kindista <noreply@kindista.org>"
                       "feedback@kindista.org"
                       "New Kindista Account to Review" 
                       (pending-offer-notification-email-text id)
                       :html-message (pending-offer-notification-email-html id)))
  
  (defun pending-offer-notification-email-text (id)
  (let* ((offer (db id))
  