[Emacs-diffs] nsm 01/02: Tweak meaning of self-signed certificates in gnutls

[Lars Ingebrigtsen]

branch: nsm
commit cac416d28e031b3fd34099dae8e042d3549267cb
Author: Lars Magne Ingebrigtsen <address@hidden>
Date:   Tue Nov 18 23:36:29 2014 +0100

    Tweak meaning of self-signed certificates in gnutls
    
    * gnutls.c (Fgnutls_peer_status): SIGNER_NOT_FOUND probably means
    :self-signed more than SIGNER_NOT_CA does.
---
 src/ChangeLog |    3 +++
 src/gnutls.c  |    6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index 484383b..d171b65 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2014-11-18  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * gnutls.c (Fgnutls_peer_status): SIGNER_NOT_FOUND probably means
+       :self-signed more than SIGNER_NOT_CA does.
+
        * emacs.c (syms_of_emacs): Export running_asynch_code to Lisp so
        that functions can tell what context they are being run under.
 
diff --git a/src/gnutls.c b/src/gnutls.c
index 39854a0..2286afb 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -917,12 +917,12 @@ The return value is a property list.  */)
                      warnings);
 
   if (verification & GNUTLS_CERT_SIGNER_NOT_FOUND)
-    warnings = Fcons (list2 (intern (":signer-not-found"),
-                            build_string("certificate signer was not found")),
+    warnings = Fcons (list2 (intern (":self-signed"),
+                            build_string("certificate signer was not found 
(self-signed)")),
                      warnings);
 
   if (verification & GNUTLS_CERT_SIGNER_NOT_CA)
-    warnings = Fcons (list2 (intern (":self-signed"),
+    warnings = Fcons (list2 (intern (":not-ca"),
                             build_string("certificate signer is not a CA")),
                      warnings);