Commit 0837609faca2

Vincent Demeester <vincent@sbr.pm>
2017-01-05 22:11:30
So… if I'm offline, emacs won't load… that is bad…
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
main
1 parent b4956e4
Changed files (1)
.emacs.d
lisp
setup-package.el
.emacs.d/lisp/setup-package.el
@@ -20,20 +20,21 @@
           ,(format "openssl s_client -connect %%h:%%p -CAfile %s -no_ssl2 -ign_eof" trustfile)))
   (setq gnutls-trustfiles (list trustfile)))
 
-(let ((bad-hosts
-       (cl-loop for bad
-             in `("https://wrong.host.badssl.com/"
-                  "https://self-signed.badssl.com/")
-             if (condition-case e
-                    (url-retrieve
-                     bad (lambda (retrieved) t))
-                  (error nil))
-             collect bad)))
-  (if bad-hosts
-      (error (format "tls misconfigured; retrieved %s ok"
-                     bad-hosts))
-    (url-retrieve "https://badssl.com"
-                  (lambda (retrieved) t))))
+(ignore-errors (let ((bad-hosts
+                      (cl-loop for bad
+                               in `("https://wrong.host.badssl.com/"
+                                    "https://self-signed.badssl.com/")
+                               if (condition-case e
+                                      (url-retrieve
+                                       bad (lambda (retrieved) t))
+                                    (error nil))
+                               collect bad)))
+                 (if bad-hosts
+                     (error (format "tls misconfigured; retrieved %s ok"
+                                    bad-hosts))
+                   (url-retrieve "https://badssl.com"
+                                 (lambda (retrieved) t)))))
+
 
 ;; If gpg cannot be found, signature checking will fail, so we
 ;; conditionnally enable it according wether gpg is availabel.