Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | per-chat flags for OTR and similar |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0a42fe7080b585ea71523b91da3f4dd8 |
| User & Date: | bernd 2019-06-27 12:28:29 |
Context
|
2019-06-27
| ||
| 12:29 | Bump version number check-in: f0a323c4e1 user: bernd tags: trunk, 0.9.0-20190627 | |
| 12:28 | per-chat flags for OTR and similar check-in: 0a42fe7080 user: bernd tags: trunk | |
| 12:21 | per-chat flags for OTR and similar check-in: 1b953040cb user: bernd tags: trunk | |
Changes
Changes to msg.fs.
1451 1451 \G logstyle: +date a date per log line 1452 1452 \G logstyle: +num a message number per log line 1453 1453 ['] logstyles evaluate-in ; 1454 1454 1455 1455 : /otrify ( addr u -- ) 1456 1456 \U otrify #line[s] otrify message 1457 1457 \G otrify: turn an older message of yours into an OTR message 1458 - msg:otr# msg-group-o .msg:mode [: now>otr 1458 + msg-group-o .msg:mode dup @ msg:otr# or swap 1459 + [: now>otr 1459 1460 [: BEGIN bl $split 2>r dup WHILE s>unumber? WHILE 1460 1461 drop do-otrify 2r> REPEAT THEN 1461 1462 2drop 2r> 2drop 1462 1463 ;] (send-avalanche) drop .chat save-msgs& 1463 1464 ;] !wrapper ; 1464 1465 1465 1466 : /lock ( addr u -- ) ................................................................................ 1554 1555 packets2 @ connected-timeout packets2 @ <> 1555 1556 IF reply( ." Resend to " pubkey $@ key>nick type cr ) 1556 1557 timeout-expired? IF 1557 1558 timeout( <err> ." Excessive timeouts from " 1558 1559 pubkey $@ key>nick type ." : " 1559 1560 ack@ .timeouts @ . <default> cr ) 1560 1561 msg-group$ $@len IF 1561 - msg:otr# msg-group-o .msg:mode 1562 + msg-group-o .msg:mode dup @ msg:otr# or swap 1562 1563 [: pubkey $@ ['] left, send-avalanche ;] !wrapper 1563 1564 THEN 1564 1565 net2o:dispose-context 1565 1566 EXIT 1566 1567 THEN 1567 1568 ELSE expected@ u<= IF -timeout THEN THEN ; 1568 1569