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.510 |
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 1452 1453 1454 1455 1456 1457 |
\G logstyle: +date a date per log line
\G logstyle: +num a message number per log line
['] logstyles evaluate-in ;
: /otrify ( addr u -- )
\U otrify #line[s] otrify message
\G otrify: turn an older message of yours into an OTR message
| | > | 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 |
\G logstyle: +date a date per log line
\G logstyle: +num a message number per log line
['] logstyles evaluate-in ;
: /otrify ( addr u -- )
\U otrify #line[s] otrify message
\G otrify: turn an older message of yours into an OTR message
msg-group-o .msg:mode dup @ msg:otr# or swap
[: now>otr
[: BEGIN bl $split 2>r dup WHILE s>unumber? WHILE
drop do-otrify 2r> REPEAT THEN
2drop 2r> 2drop
;] (send-avalanche) drop .chat save-msgs&
;] !wrapper ;
: /lock ( addr u -- )
|
| ︙ | ︙ | |||
1554 1555 1556 1557 1558 1559 1560 |
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 ." : "
ack@ .timeouts @ . <default> cr )
msg-group$ $@len IF
| | | 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 |
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 ." : "
ack@ .timeouts @ . <default> cr )
msg-group$ $@len IF
msg-group-o .msg:mode dup @ msg:otr# or swap
[: pubkey $@ ['] left, send-avalanche ;] !wrapper
THEN
net2o:dispose-context
EXIT
THEN
ELSE expected@ u<= IF -timeout THEN THEN ;
|
| ︙ | ︙ |