[Emacs-diffs] scratch/with-url dc5edd8 3/4: Save the TLS status while it still exists

[Lars Ingebrigtsen]

branch: scratch/with-url
commit dc5edd8251c91090947a291deaa707f632ab9c8c
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Save the TLS status while it still exists
---
 lisp/url/with-url.el |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/url/with-url.el b/lisp/url/with-url.el
index 54a8c81..8a20ea1 100644
--- a/lisp/url/with-url.el
+++ b/lisp/url/with-url.el
@@ -459,15 +459,15 @@ If given, return the value in BUFFER instead."
   (message "Calling back")
   (let ((req (plist-get (process-plist process) :request))
         (buffer (process-buffer process)))
+    ;; Pass the https certificate on to the caller.
+    (when (gnutls-available-p)
+      (push (cons 'tls-peer (gnutls-peer-status process)) with-url--status))
     (delete-process process)
     (when (url-request-timer req)
       (cancel-timer (url-request-timer req)))
     (set-process-sentinel process nil)
     (set-process-filter process nil)
     (push (cons 'url (url-request-url req)) with-url--status)
-    ;; Pass the https certificate on to the caller.
-    (when (gnutls-available-p)
-      (push (cons 'tls-peer (gnutls-peer-status process)) with-url--status))
     (with-current-buffer buffer
       ;; Allow overriding the status if we have a timeout or the like.
       (when status