Tkabber

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

	* plugins/general/gpgme.tcl: Improved the fetch key information dialog.

	* msgs/ru.msg, msgs/uk.msg: Updated Russain and Ukrainian translations.

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

	* plugins/general/gpgme.tcl: Fixed simultaneous encrypting and signing.
	  Moved drawing of GPG icons for outgoing messages from
	  rewrite_outgoing_message_hook to draw_message_hook. Translate the
	  'This message is encrypted.' auxiliary message to the recipient
	  language instead of our own.

        logs!\n\nI refuse to convert logs database." "Вы храните журналы\
        разговоров Tkabber'а в корневой директории %s!\n\nКонвертирование\
        журналов отменяется."
::msgcat::mcset ru "Your new Tkabber config directory is now:\n%s\nYou can\
        delete the old one:\n%s" "Новая директория с настройками\
        Tkabber'а:\n%s\nВы можете удалить старую:\n%s"
::msgcat::mcset ru "Zip" "Индекс"
::msgcat::mcset ru "not actually changed" "не изменился"
::msgcat::mcset ru "entirely new key" "совершенно новый ключ"
::msgcat::mcset ru "new user IDs" "новые ID пользователя"
::msgcat::mcset ru "new signatures" "новые подписи"
::msgcat::mcset ru "new subkeys" "новые подключи"
::msgcat::mcset ru "contains private key" "содержит закрытый ключ"


::msgcat::mcset ru "\n\tJID: %s"
::msgcat::mcset ru "auto-away"
::msgcat::mcset ru "BBS:"
::msgcat::mcset ru "bwidget workarounds"
::msgcat::mcset ru "day"
::msgcat::mcset ru "days"

# ./proxy.tcl
::msgcat::mcset uk "Currently active profile" "Поточний діючий профіль"
::msgcat::mcset uk "Default empty profile" "Порожній профіль за\
        замовчуванням"
::msgcat::mcset uk "Profile from config file" "Профіль з конфігураційного\
        файлу"

# ./plugins/general/gpgme.tcl
::msgcat::mcset uk "not actually changed" "не змінився"
::msgcat::mcset uk "entirely new key" "зовсім новий ключ"
::msgcat::mcset uk "new user IDs" "нові ID користувача"
::msgcat::mcset uk "new signatures" "нові підписи"
::msgcat::mcset uk "new subkeys" "нові підключі"
::msgcat::mcset uk "contains private key" "містить закритий ключ"

#==================================================================

namespace eval :: {
proc load_ukrainian_procs {} {
    rename format_time ""
    rename uk_format_time format_time
}

                diff       [::msgcat::mc "Multiple signatures having different\
                                          authenticity"] \
                expired    [::msgcat::mc "The signature is good but has\
                                          expired"] \
                expiredkey [::msgcat::mc "The signature is good but the key\
                                          has expired"]]

    array set f2s \
          [list unchanged       [::msgcat::mc "not actually changed"] \
                new_key         [::msgcat::mc "entirely new key"] \
                new_uids        [::msgcat::mc "new user IDs"] \
                new_sigs        [::msgcat::mc "new signatures"] \
                new_subkeys     [::msgcat::mc "new subkeys"] \
                new_private_key [::msgcat::mc "contains private key"]]

    catch {unset warnings}
    array set warnings {}

    variable signedid 0
}

}

proc ::ssj::processFetchkeys {xlib status output} {
    variable ctx
    variable gpg_error_id

    if {$status ne "ok"} {

        NonmodalMessageDlg .keyfetch_error[incr gpg_error_id] \
            -aspect 50000 -icon error \
            -message "Key fetch error\n\n$output"
    } else {
        # In case of success let's update the affected keys info

        set patterns {}
        foreach {fp status} $output {
            lappend patterns $fp
        }
        $ctx($xlib) list-keys -patterns $patterns \
                -command [list ::ssj::reportFetchkeys $xlib $output]
    }
}

proc ::ssj::reportFetchkeys {xlib output status keys} {
    variable ctx
    variable gpg_error_id
    variable f2s

    set text ""
    foreach {fp info} $output {
        unset -nocomplain status
        array set status $info
        if {$status(status) ne "ok"} {
            append text "\n0x[string range $fp end-7 end]: $status(reason)"
        } else {
            set flags {}
            foreach f $status(flags) {
                lappend flags $f2s($f)
            }
            set tflags [join $flags ",\n\t"]
            if {[catch {$ctx($xlib) info-key -key $fp} keyinfo]} {
                append text "\n0x[string range $fp end-7 end]:\n\t$tflags"
            } else {
                set uids ""
                foreach {k v} $keyinfo {
                    if {$k eq "userid"} {
                        append uids "\n    $v"
                    }
                }
                append text "\n0x[string range $fp end-7 end]$uids:\n\t$tflags"
            }
        }
    }


    NonmodalMessageDlg .keyfetch_ok[incr gpg_error_id] \
            -aspect 50000 -icon info \
            -message "Key fetch result\n$text"
}

###############################################################################

proc ::ssj::rewrite_message_body \