anchor.diff:                    :text reply-text
                     :action-type action-type
                     :next next
  -                  :identity-selection (post-parameter-integer
  -                                        "identity-selection")
  +                  :identity-selection groupid
                     :match (post-parameter-integer "match")
                     :error (when (and (not (post-parameter "reply"))
                                       (not reply-text)
  
positive.code:                                                *userid*)))
               (create-transaction :on id
                                   :text reply-text
                                   :action (cond
                                             ((string= action-type "offer")
                                              :offered)
  
negative.code:         reply
     &aux (type (getf item :type))
          (by (getf item :by))
          (groupid (awhen (post-parameter-integer "identity-selection")
                                (unless (= it *userid*) it)))
          (adminp (group-admin-p by)))
  
    (require-user (:require-email t)
  