Verified Commit f3da8e00 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

More fixes

parent 8a4dc1f7

keys.fs

+1 −0
Original line number Diff line number Diff line
@@ -142,6 +142,7 @@ Variable sim-nick! 
	    ke-pk $@ I @ .ke-pk $@ str= IF

		I @ .ke-nick# @ ke-nick# !

		I @ .ke-offset 64@ ke-offset 64!

		I @ .ke-sk sec@ dup IF  ke-sk sec!  ELSE  2drop  THEN

		I @ .ke-selfsig $@ drop 64@ ke-selfsig $@ drop 64@ 64u<

		IF  optr @ I !  THEN

		UNLOOP  EXIT

msg.fs

+1 −2
Original line number Diff line number Diff line
@@ -201,7 +201,6 @@ msg-notify-class ' new static-a with-allocater Constant msg-notify-o 
    o> ;



Forward silent-join

Forward fetch-pks



\ !!FIXME!! should use an asynchronous "do-when-connected" thing
@@ -1309,7 +1308,7 @@ previous 
	    THEN ;] #map

	start IF  [ also net2o-base ] cookie+request end-code|  THEN

	msg-group-o .msg:pks# free-obtained-pks

    THEN ;

    THEN  save-keys ;

: ?fetch-pks

    msg-group-o >o msg:peers[] $[]# 0 ?DO

	I msg:peers[] $[] @ .fetch-pks