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:         (:p "Notifications will be sent to your primary email address: "
              (:strong (str (car (getf *user* :emails))))
              (:a :id "email-link" :href "/settings/communication#email" "change"))
          (when (eql unsub-id *userid*)
            (str (settings-unsubscribe-all)))
          (str (settings-notifications :groupid groupid :group group))
          (str (settings-push-notifications group))
          (unless groupid
            (str (settings-emails (string= (get-parameter "edit") "email")
                                  :activate (get-parameter "activate")))))))))
  
  
negative.code:     (setf unsub-type (intern notify-type :keyword)))
  
    (flet ((unsub (message)
             (if groupid
               (amodify-db groupid unsub-type (remove userid it))
               (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
            (if groupid
              "You are now unsubscribed from receiving notifications when this group recieves a statment of gratitude"
              "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-membership-request
          (unsub "You are now unsubscribed from reciving notifications when someone requests to join this group"))
        (:notify-inventory-expiration
          (unsub
            (if groupid
              "You are now unsubscribed from receiving notifications when this group's offers and requests are about to expire"
              "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
  