[elpa] externals/emms 5c72f04 1/4: * emms-librefm-stream.el: authinfo for streaming

[Yoni Rabkin]

branch: externals/emms
commit 5c72f041893a2a88aa01ccb7828c498145fe1ac1
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * emms-librefm-stream.el: authinfo for streaming
    
    make `emms-librefm-stream-tune-handshake-string' use authinfo as well
---
 emms-librefm-stream.el | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/emms-librefm-stream.el b/emms-librefm-stream.el
index c46a060..bfab2af 100644
--- a/emms-librefm-stream.el
+++ b/emms-librefm-stream.el
@@ -87,19 +87,17 @@ point after the HTTP headers."
 
 (defun emms-librefm-stream-tune-handshake-string ()
   "Create the tune handshake string."
-  (when (not emms-librefm-scrobbler-username)
-    (error "null username"))
-  (when (not emms-librefm-scrobbler-password)
-    (error "null password"))
-  (let ((url (concat emms-librefm-stream-connect-method
-                    emms-librefm-stream-host-url
-                    "/radio/handshake.php?"
-                    "version=1.3.0.58" "&"
-                    "platform=linux" "&"
-                    "username=" (url-encode-url 
emms-librefm-scrobbler-username) "&"
-                    "passwordmd5=" (md5 emms-librefm-scrobbler-password) "&"
-                    "language=en")))
-    url))
+  (let ((username (emms-librefm-scrobbler--username))
+       (password (emms-librefm-scrobbler--password)))
+    (let ((url (concat emms-librefm-stream-connect-method
+                      emms-librefm-stream-host-url
+                      "/radio/handshake.php?"
+                      "version=1.3.0.58" "&"
+                      "platform=linux" "&"
+                      "username=" (url-encode-url username) "&"
+                      "passwordmd5=" (md5 password) "&"
+                      "language=en")))
+      url)))
 
 (defun emms-librefm-stream-tune-handshake-call ()
   "Make the tune handshake call."