anchor.diff:               (html (html-email-base (strcat (nth-value 1 (markdown text :stream nil))
                                               (unsubscribe-notice-ps-html))))
                (subject (post-parameter "subject"))
  -             (text-with-unsubscribe (s+ text (unsubscribe-notice-ps)))
  +             (text-with-unsubscribe (s+ text (unsubscribe-notice-ps-text)))
                (from (post-parameter "from")))
           (cond
             ((post-parameter "test")
  
positive.code:               (:label "Subject:")
                (:input :type "text" :name "subject"))
              (:textarea :name "markdown")
              (:button :type "submit" :name "test" :class "yes" "Send Test")
              (:button :type "submit" :class "yes" "Send to everyone"))))
        :selected "admin")))
  
negative.code:                                                 subject
                                                  text-with-unsubscribe
                                                  :html-message html)))))))
               (dolist (id (cond
                             ((not *productionp*)
                              (when (getf *user* :admin)
                                (list *userid*)))
                             ((post-parameter "eugene-only")
                              (remove-duplicates (local-members)))
                             (t (remove-duplicates *active-people-index*))))
                 (send-mail id)))))
          (flash "your message has been sent"))
  
  