anchor.diff:    (email
      unsub-type
      &aux (userid (gethash email *email-index*))
  -        (notify-type (string-upcase (s+ "notify-" unsub-type))))
  +        (notify-type (string-upcase (s+ "notify-" unsub-type)))
  +        (unverified-groupid (get-parameter-integer "groupid"))
  +        (users-groups (groups-with-user-as-admin userid))
  +        (groupid (awhen (find unverified-groupid users-groups :key #'car)
  +                   (car it))))
   
     (when (find notify-type
                 (mapcar #'symbol-name *notification-types*)
  
positive.code:     (setf unsub-type (intern notify-type :keyword)))
  
    (flet ((unsub (message)
             (modify-db userid unsub-type nil)
             (flash message)))
      (case unsub-type
        (:notify-expired-invites
          (unsub "You are now unsubscribed from receiving notificaitons when invitations you sent to friends to join Kindista expire"))
        (:notify-gratitude
          (unsub "You are now unsubscribed from receiving notificaitons when someone posts gratitude about you"))
        (:notify-group-membership-invites
          (unsub "You are now unsubscribed from receiving notificaitons when someone invites you to join a group on Kindista "))
        (:notify-inventory-expiration
          (unsub "You are now unsubscribed from receiving notificaitons when your offers and requests are about to expire"))
        (:notify-inventory-digest
          (unsub "You are now unsubscribed from receiving notificaitons of new offers and requests in your area"))
        (:notify-kindista
  
negative.code:           (:h2 "Please let us know what types of information you would like to be notified about")
            (:p "Notifications will be sent to your primary email address: "
             (:strong (str (car (getf unsub-user :emails)))))
            (if groups
              (str (settings-identity-selection-html
                     (or groupid unsub-id)
                     groups
                     :userid unsub-id
                     :url "/settings/notifications"))
              (str (settings-unsubscribe-all)))
            (str (settings-notifications :user unsub-user
                                         :userid unsub-id
                                         :group group
  