Check-in [cc527aed1c]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Small fix so that joining groups at start works again
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: cc527aed1cf432968efd16d57e25d1f91168ce10
User & Date: bernd 2019-06-20 12:55:36.260
Context
2019-06-20
13:47
Bump version number check-in: da810891c3 user: bernd tags: trunk, 0.9.0-20190620
12:55
Small fix so that joining groups at start works again check-in: cc527aed1c user: bernd tags: trunk
12:29
More rework on messaging check-in: eb85b0b273 user: bernd tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to msg.fs.
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
    [: parse-text ;] send-avalanche ;

previous

: load-msgn ( addr u n -- )
    >r 2dup load-msg ?msg-log r> display-lastn ;

: +group ( -- ) +unique-con ;

: msg-timeout ( -- )
    packets2 @  connected-timeout  packets2 @ <>
    IF  reply( ." Resend to " pubkey $@ key>nick type cr )
	timeout-expired? IF
	    timeout( <err> ." Excessive timeouts from "
	    pubkey $@ key>nick type ." : "







|







1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
    [: parse-text ;] send-avalanche ;

previous

: load-msgn ( addr u n -- )
    >r 2dup load-msg ?msg-log r> display-lastn ;

: +group ( -- ) msg-group$ $@ >group +unique-con ;

: msg-timeout ( -- )
    packets2 @  connected-timeout  packets2 @ <>
    IF  reply( ." Resend to " pubkey $@ key>nick type cr )
	timeout-expired? IF
	    timeout( <err> ." Excessive timeouts from "
	    pubkey $@ key>nick type ." : "