Only send presence when performing a simple ;join, not when doing ;source.
=< sh-done
%- ~(sh-show-config sh cli)
[cir.rum cur dif.rum]
- =? +>.$ &(?=($source -.dif.rum) add.dif.rum)
+ =? +>.$
+ ?& ?=($source -.dif.rum)
+ add.dif.rum
+ =(cir.rum incir)
+ ?=($~ ran.src.dif.rum)
+ ==
=* cir cir.src.dif.rum
=+ ren=~(cr-phat cr cir)
=+ gyf=(~(get by bound) [cir ~ ~])
