aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2010-06-14 20:17:37 +0300
committerYoni Rabkin <yoni@rabkins.net>2010-06-14 20:17:37 +0300
commit4703c7e690fcd1cef6b16f6b18031ce7297bd007 (patch)
tree4c1d7d442decbe3ddd2b7596d5a21baa1f41af7b
parent625a44279de606b9092e73885ac37b743e0095fa (diff)
* lisp/emms-lastfm-client.el: Add Tim Landscheidt's fixes.
-rw-r--r--lisp/emms-lastfm-client.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/emms-lastfm-client.el b/lisp/emms-lastfm-client.el
index fb3f69f..fcf8fd6 100644
--- a/lisp/emms-lastfm-client.el
+++ b/lisp/emms-lastfm-client.el
@@ -31,6 +31,7 @@
;;; Code:
(require 'md5)
+(require 'parse-time)
(require 'xml)
(defvar emms-lastfm-client-api-key nil
@@ -590,10 +591,8 @@ This function includes the cryptographic signature."
"Function called on DATA if auth.getSession succeeds."
(let ((session-key (nth 2 (nth 5 (cadr data)))))
(cond (session-key
- (setq emms-lastfm-client-api-session-key
- session-key)
- (message "Emms Last.fm session key retrieval successful"
- session-key))
+ (setq emms-lastfm-client-api-session-key session-key)
+ (message "Emms Last.fm session key retrieval successful"))
(t (error "failed to parse session key data %s" data)))))
(defun emms-lastfm-client-auth-get-session-failed (data)
@@ -646,7 +645,7 @@ This function includes the cryptographic signature."
(setq response (cdr response)))
(when (not data)
(error "could not parse station information %s" data))
- (setq emms-lastfm-client-tuned-station-alist data)))
+ data))
;;; ------------------------------------------------------------------
;;; method: radio.getPlaylist [http://www.last.fm/api/show?service=256]