procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove superfluous `gnutls-available-p' check

Browse source 
* lisp/url/url-http.el (url-http-parse-headers): `gnutls-available-p' is
now always available.
This commit is contained in:
Lars Magne Ingebrigtsen 2014-12-12 11:48:29 +01:00
parent be6dff68be
commit 14efb83188
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/url/ChangeLog
View file

@ -1,3 +1,8 @@
2014-12-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
* url-http.el (url-http-parse-headers): `gnutls-available-p' is
now always available.
2014-12-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* url-http.el (url-http-parse-headers): Check that

3
lisp/url/url-http.el
View file

@ -495,8 +495,7 @@ should be shown to the user."
(url-port url-current-object)
url-http-process)
;; Pass the https certificate on to the caller.
(when (and (fboundp 'gnutls-available-p)
(gnutls-available-p))
(when (gnutls-available-p)
(let ((status (gnutls-peer-status url-http-process)))
(when (or status
(plist-get (car url-callback-arguments) :peer))