[Emacs-diffs] master a0fe9b0 3/3: (Fgnutls_peer_status): Return the DH prime bits for the connection

[Lars Ingebrigtsen]

branch: master
commit a0fe9b0481eb85667e99b987070af13311a95e54
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>

    (Fgnutls_peer_status): Return the DH prime bits for the connection
---
 src/ChangeLog |    2 ++
 src/gnutls.c  |    9 +++++++++
 2 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index 70b1bb0..b791d18 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -3,6 +3,8 @@
        * gnutls.c (gnutls_certificate_details): The :signature isn't
        that useful, so remove it.
        (gnutls_certificate_details): Clean up whitespace slightly.
+       (Fgnutls_peer_status): Return the Diffie-Hellman prime bits for
+       the connection.
 
 2014-12-07  Jan Djärv  <address@hidden>
 
diff --git a/src/gnutls.c b/src/gnutls.c
index c4d85a2..2006bbc 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -1029,6 +1029,15 @@ The return value is a property list with top-level keys 
:warnings and
                      (intern (":certificate"),
                       gnutls_certificate_details (XPROCESS 
(proc)->gnutls_certificate)));
 
+  /* Diffie-Hellman prime bits. */
+  {
+    int bits = gnutls_dh_get_prime_bits (XPROCESS (proc)->gnutls_state);
+    if (bits > 0)
+      result = nconc2 (result, list2
+                      (intern (":diffie-hellman-prime-bits"),
+                       make_number (bits)));
+  }
+
   return result;
 }