diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2010-06-14 20:17:37 +0300 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2010-06-14 20:17:37 +0300 |
| commit | 4703c7e690fcd1cef6b16f6b18031ce7297bd007 (patch) | |
| tree | 4c1d7d442decbe3ddd2b7596d5a21baa1f41af7b /lisp/emms-lastfm-client.el | |
| parent | 625a44279de606b9092e73885ac37b743e0095fa (diff) | |
* lisp/emms-lastfm-client.el: Add Tim Landscheidt's fixes.
Diffstat (limited to 'lisp/emms-lastfm-client.el')
| -rw-r--r-- | lisp/emms-lastfm-client.el | 9 |
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] |