TclGPG  Check-in [cff821af0f]

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

Overview
Comment:Clear flags for expired and/or revoked key in case of successful decryption.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1: cff821af0f45f86a3fe43fc37a3495c0ad206f9f
User & Date: sgolovan 2017-08-08 09:03:18
Context
2017-08-08
09:03
Clear flags for expired and/or revoked key in case of successful decryption. Leaf check-in: cff821af0f user: sgolovan tags: trunk
08:59
Clarified a few failure reasons for fetching keys. check-in: 8d1c1f78b9 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tclgpg.tcl.

1661
1662
1663
1664
1665
1666
1667




1668
1669
1670
1671
1672
1673
1674
                    fconfigure $command_fd -encoding $encoding \
                                           -translation $translation
                }
            }
            BAD_PASSPHRASE {
                set state(badpassphrase) 1
            }




            DECRYPTION_FAILED {
                FinishWithError $channels $commands "Decryption failed"
                return
            }
            KEYEXPIRED {
                switch -- $operation {
                    "" -







>
>
>
>







1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
                    fconfigure $command_fd -encoding $encoding \
                                           -translation $translation
                }
            }
            BAD_PASSPHRASE {
                set state(badpassphrase) 1
            }
            DECRYPTION_OKAY {
                set state(keyexpired) 0
                set state(keyrevoked) 0
            }
            DECRYPTION_FAILED {
                FinishWithError $channels $commands "Decryption failed"
                return
            }
            KEYEXPIRED {
                switch -- $operation {
                    "" -