Index: msg.fs ================================================================== --- msg.fs +++ msg.fs @@ -1453,11 +1453,12 @@ ['] 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:otr# msg-group-o .msg:mode [: now>otr + 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 ; @@ -1556,11 +1557,11 @@ timeout-expired? IF timeout( ." Excessive timeouts from " pubkey $@ key>nick type ." : " ack@ .timeouts @ . cr ) msg-group$ $@len IF - msg:otr# msg-group-o .msg:mode + msg-group-o .msg:mode dup @ msg:otr# or swap [: pubkey $@ ['] left, send-avalanche ;] !wrapper THEN net2o:dispose-context EXIT THEN