}] $value] != -1} then {
      return true
    } else {
      return false
    }
  }

  proc isPgpSignature { value {strict false} } {
  proc isPgpSignature { value } {
    if {[string length $value] == 0 || [string first [string trim {
      -----BEGIN PGP SIGNATURE-----
    }] $value] != -1} then {
      return true
    } else {
      return false
    }