emms-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emms-patches] [COMMIT] * lisp/emms-lastfm-client.el: Add Tim Landscheid


From: Yoni Rabkin
Subject: [Emms-patches] [COMMIT] * lisp/emms-lastfm-client.el: Add Tim Landscheidt's fixes.
Date: Mon, 14 Jun 2010 20:17:37 +0300

---
 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]
-- 
debian.1.5.6.1.19.ge6b2




reply via email to

[Prev in Thread] Current Thread [Next in Thread]