Permalink
Browse files

Workaround gnutls issue.

  • Loading branch information...
1 parent f292824 commit e421de4f185ab06d04521568fbadd2c954287b58 @febuiles committed Jan 14, 2011
Showing with 6 additions and 0 deletions.
  1. +6 −0 tumble.el
View
@@ -115,6 +115,12 @@
(setq tumble-api-url "https://www.tumblr.com/api/write")
(setq tumble-states (list "published" "draft")) ; supported states
+;; GNUTLS and Mac are not friendly, default TLS to openssl.
+(cond ((equal system-type 'darwin)
+ (set tls-program '("openssl s_client -connect %h:%p -no_ssl2"
+ "gnutls-cli -p %p %h --protocols ssl3"
+ "gnutls-cli -p %p %h")
+
(defun tumble-state-from-partial-string (st)
(let ((state (car tumble-states)))
(if (string= st "")

0 comments on commit e421de4

Please sign in to comment.