gnutls voodoo for gist.el

gist.el

(eval-after-load 'gist
  '(progn

     (defadvice gh-api-run-request (around
     su/advice/gist/gh-api-run-request/around/set-tls-program a c pre)
       "Set `tls-program' to favor openssl, otherwise url-retrieve-synchronously
     hangs"
       (let ((tls-program '(
                            "openssl s_client -connect %h:%p -no_ssl2 -ign_eof"
                            "gnutls-cli --insecure -p %p %h"
                            "gnutls-cli --insecure -p %p %h --protocols ssl3"
                            )))
         ad-do-it))


     ))