anchor.diff:              (:button :type "submit" :class "yes" "Send to everyone"))))
         :selected "admin")))
   
  +(defvar *last-broadcast-email-time* 0)
  +
   (defun post-admin-sendmail ()
     (require-admin
       (if (and (post-parameter "markdown")
  
positive.code:                                                 subject
                                                  text
                                                  :html-message html)))))))
               (dolist (id *active-people-index*)
                 (send-mail id)))))
          (flash "your message has been sent"))
  
  
negative.code:                                     text
                                      :html-message html)))))
  
            ((< *last-broadcast-email-time* (- (get-universal-time) 300))
             (setf *last-broadcast-email-time* (get-universal-time))
             (flet ((send-mail (id)
                      (let ((data (db id)))
                        (when (getf data :notify-kindista)
  