From 4703c7e690fcd1cef6b16f6b18031ce7297bd007 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Mon, 14 Jun 2010 20:17:37 +0300 Subject: * lisp/emms-lastfm-client.el: Add Tim Landscheidt's fixes. --- lisp/emms-lastfm-client.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'lisp') 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] -- cgit v1.2.3