From 1ca398268d28644bb955560612ed881d783078d0 Mon Sep 17 00:00:00 2001
From: Yoni Rabkin <yrk@gnu.org>
Date: Sun, 29 Mar 2015 22:42:41 -0400
Subject: Move librefm to https.

Note that some player backends don't know how to handle https.
---
 lisp/emms-librefm-scrobbler.el | 2 +-
 lisp/emms-librefm-stream.el    | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/lisp/emms-librefm-scrobbler.el b/lisp/emms-librefm-scrobbler.el
index 28c4c02..a49a458 100644
--- a/lisp/emms-librefm-scrobbler.el
+++ b/lisp/emms-librefm-scrobbler.el
@@ -38,7 +38,7 @@
   "Endpoint for client handshake.")
 
 (defvar emms-librefm-scrobbler-method
-  "http"
+  "https"
   "Transfer method.")
 
 (defvar emms-librefm-scrobbler-username nil
diff --git a/lisp/emms-librefm-stream.el b/lisp/emms-librefm-stream.el
index 9c55e41..7df67cb 100644
--- a/lisp/emms-librefm-stream.el
+++ b/lisp/emms-librefm-stream.el
@@ -60,6 +60,9 @@
 (defvar emms-librefm-stream-playlist-buffer nil
   "Non-interactive Emms GNU FM buffer.")
 
+(defvar emms-librefm-stream-connect-method "https://"
+  "Method of connecting to server.")
+
 
 ;;; ------------------------------------------------------------------
 ;;; HTTP
@@ -88,7 +91,7 @@ point after the HTTP headers."
     (error "null username"))
   (when (not emms-librefm-scrobbler-password)
     (error "null password"))
-  (let ((url (concat "http://"
+  (let ((url (concat emms-librefm-stream-connect-method
 		     emms-librefm-stream-host-url
 		     "/radio/handshake.php?"
 		     "version=1.3.0.58" "&"
@@ -157,7 +160,7 @@ point after the HTTP headers."
     (error "null session id"))
   (when (not station)
     (error "null station"))
-  (let ((url (concat "http://"
+  (let ((url (concat emms-librefm-stream-connect-method
 		     emms-librefm-stream-host-url
 		     emms-librefm-stream-host-base-path
 		     "/adjust.php?"
@@ -227,7 +230,7 @@ point after the HTTP headers."
   "Create the getplaylist string."
   (when (not radio-session-id)
     (error "null radio session id"))
-  (let ((url (concat "http://"
+  (let ((url (concat emms-librefm-stream-connect-method
 		     emms-librefm-stream-host-url
 		     emms-librefm-stream-host-base-path
 		     "/xspf.php?"
-- 
cgit v1.2.3