From 77c1f432b3b02151c82e035ba5f354817df7d426 Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Fri, 5 Jan 2007 03:52:00 +0000
Subject: emms-player-mpd: Use functions in emms-url.el

darcs-hash:20070105035233-1bfb2-6b83da8301b2ea542a061a6baab437fea1dade9e.gz
---
 emms-player-mpd.el | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/emms-player-mpd.el b/emms-player-mpd.el
index fb64ff5..1b9b533 100644
--- a/emms-player-mpd.el
+++ b/emms-player-mpd.el
@@ -106,6 +106,13 @@
 (require 'emms-source-playlist)  ; for emms-source-file-parse-playlist
 (require 'tq)
 
+(eval-when-compile
+  (condition-case nil
+      (progn
+        (require 'url)           ; load if available
+        (require 'emms-url))
+    (error nil)))
+
 (defgroup emms-player-mpd nil
   "EMMS player for MusicPD."
   :group 'emms-player
@@ -741,9 +748,12 @@ This handles both m3u and pls type playlists."
 Execute CALLBACK with CLOSURE as its first argument when done."
   ;; This is useful with emms-streams.el
   (if (fboundp 'url-insert-file-contents)
-      (with-temp-buffer
-        (url-insert-file-contents url)
-        (emms-player-mpd-add-buffer-contents closure callback))
+      (progn
+        (require 'emms-url)
+        (with-temp-buffer
+          (url-insert-file-contents (emms-escape-url url))
+          (emms-http-decode-buffer)
+          (emms-player-mpd-add-buffer-contents closure callback)))
     (error (message (concat "You need to install url.el so that"
                             " Emms can retrieve this stream")))))
 
-- 
cgit v1.2.3