anchor.diff:  
   (defun email-action-button (url message)
     (html
  -    (:a :class *style-a* :href url (str message))))
  +    (:table :cellspacing "0" :cellpadding "0"
  +     (:td :style *style-button*
  +       (:a :style *style-button-link* :href url (str message))))))
   
   (defun no-reply-notice
     (&optional (instructions "do so from their profile on Kindista.org"))
  
positive.code: 
  (defparameter *style-button*
    "margin: 0.35em 0.5em 0.35em 0;
     cursor: pointer;
     font-size: 1.2em;
     font-weight: bold;
     color: #fff;
     background: #3c6dc8;
     background: -moz-linear-gradient( top, #3c6dc8 0%, #29519c);
     background: -ms-linear-gradient( top, #3c6dc8 0%, #29519c);
  
negative.code:    border-radius: 0.25em;
     text-decoration: none;")
  
  (defparameter *style-button-link*
    "{color: #fff;
      font-weight: bold;
      cursor: pointer;
      text-shadow: 1px 1px 2px rgba(0,0,0,0.4);
      text-decoration: none;}
      :hover {text-decoration: underline;}
      :visited {color: #fff;} "
    )
  
  (defparameter *style-quote-box* "border-collapse: collapse;
                                   background: #ebf2e4;
  