[Top][All Lists]
[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emms-patches] [COMMIT] * lisp/emms-lastfm-client.el: Add Tim Landscheidt's fixes.,
Yoni Rabkin <=