Check-in [0a42fe7080]
Not logged in

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: 0a42fe7080b585ea71523b91da3f4dd8e1aa7fcc
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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