anchor.diff:    Iq0 = exmpp_iq:set(undefined, VCard, 'vc1'),
     exmpp_xml:set_attribute(Iq0, FromAttr).
   
  --spec vcard_presence(binary(), #state{}) -> #xmlel{}.
  -vcard_presence(Id, #state{jid=Jid}) ->
  +-spec vcard_presence(binary()) -> #xmlel{}.
  +vcard_presence(Id) ->
     Photo0 = exmpp_xml:element(undefined, 'photo', [], []),
     Photo = exmpp_xml:set_cdata(Photo0, Id),
     X = exmpp_xml:element('vcard-temp:x:update', 'x', [], [Photo]),
  
positive.code:       case exmpp_xml:get_attribute_as_binary(Raw, <<"from">>, <<"unknown">>) of
          OurJidBin -> ok;
          From ->
            error_logger:info_msg("~s: ~s", [From, Msg])
        end
    end,
  
negative.code:       Base64 = base64:encode(Bin),
        Id = hexstring(crypto:sha(Bin)),
        VCardPacket = vcard_packet(Base64, State),
        VCardPresence = vcard_presence(Id),
        exmpp_session:send_packet(Session, VCardPacket),
        exmpp_session:send_packet(Session, VCardPresence),
        ok;
  