Tkabber plugins

Check-in [8db11eebd1]
Login

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

Overview
Comment:Reset the keys counter after the AKE completion in case when the correspondent's keys have been changed.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8db11eebd16e8111e31b5fae8e49967c494aefd6
User & Date: sgolovan 2016-01-04 09:18:15
Context
2016-01-11
14:55
* debug/debug.tcl: Do not rename and replace various debug commands if they don't exist in the first place. check-in: 4a1a1d1713 user: sgolovan tags: trunk
2016-01-04
09:18
Reset the keys counter after the AKE completion in case when the correspondent's keys have been changed. check-in: 8db11eebd1 user: sgolovan tags: trunk
2016-01-02
13:14
Use own procedures to store, discard and resend messages after refreshing broken OTR conversation. Moved drawing OTR message icon for outgoing messages to draw_message_hook where it is more appropriate. check-in: 6470c20ee5 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to otr/tclotr/ChangeLog.






1
2
3
4
5
6
7





2016-01-02  Sergei Golovan  <sgolovan@nes.ru>

	* otr.tcl: Fixed a small bug in returning "can't decrypt" message.
	  Added -discardcommand and -resendcommand options to the otr::new
	  procedure. They allow the caling application to replace built-in
	  storing, discarding and resending routines.

>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2016-01-04  Sergei Golovan  <sgolovan@nes.ru>

	* otr.tcl: Reset the keys counter after the AKE completion in case
	  when the correspondent's keys have been changed.

2016-01-02  Sergei Golovan  <sgolovan@nes.ru>

	* otr.tcl: Fixed a small bug in returning "can't decrypt" message.
	  Added -discardcommand and -resendcommand options to the otr::new
	  procedure. They allow the caling application to replace built-in
	  storing, discarding and resending routines.

Changes to otr/tclotr/otr.tcl.

1040
1041
1042
1043
1044
1045
1046

1047
1048
1049
1050
1051
1052
1053

    if {$state(keyidy) == $keyidy && $state(gy,$keyidy) == $gy} {
        # Do nothing
    } elseif {$state(keyidy)-1 == $keyidy && $state(gy,$keyidy) == $gy} {
        # Do nothing
    } else {
        array unset state gy,*

        set state(keyidy) $keyidy
        set state(gy,$keyidy) $gy
        incr keyidy -1
        set state(gy,$keyidy) 0
    }
}








>







1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054

    if {$state(keyidy) == $keyidy && $state(gy,$keyidy) == $gy} {
        # Do nothing
    } elseif {$state(keyidy)-1 == $keyidy && $state(gy,$keyidy) == $gy} {
        # Do nothing
    } else {
        array unset state gy,*
        array unset state ctrtop,*
        set state(keyidy) $keyidy
        set state(gy,$keyidy) $gy
        incr keyidy -1
        set state(gy,$keyidy) 0
    }
}