anchor.diff:          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)
  
positive.code:                                                *userid*)))
               (create-transaction :on id
                                   :text reply-text
                                   :action (cond
                                             ((string= action-type "offer")
                                              :offered)
  
negative.code:                   :text reply-text
                    :action-type action-type
                    :next next
                    :identity-selection groupid
                    :match (post-parameter-integer "match")
                    :error (when (and (not (post-parameter "reply"))
                                      (not reply-text)
  