aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorWilliam Xu <william.xwl@gmail.com>2007-03-20 12:00:00 +0000
committerWilliam Xu <william.xwl@gmail.com>2007-03-20 12:00:00 +0000
commitc3037cc5b844ed16abf2b1f848780eed2da51fd5 (patch)
tree18641be803a149647d65577b2af6d2eccd682709
parentd0a2dfeade16ee3d01c8e56057b7ad84c7554c6d (diff)
emms-source-playlist.el: emms-source-playlist-parse-m3u,
emms-source-playlist-parse-pls recognize `mms://' as urls now. darcs-hash:20070320120017-cfa61-ecd17660c8ecdf95fd6bd6490a3f214a448cde92.gz
-rw-r--r--emms-source-playlist.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/emms-source-playlist.el b/emms-source-playlist.el
index bd4d527..3af669a 100644
--- a/emms-source-playlist.el
+++ b/emms-source-playlist.el
@@ -250,7 +250,7 @@ detected and simply return non-nil always."
(defun emms-source-playlist-parse-m3u ()
"Parse the m3u playlist in the current buffer."
(mapcar (lambda (file)
- (if (string-match "\\`http://" file)
+ (if (string-match "\\`http://\\|\\`mms://" file)
(emms-track 'url file)
(emms-track 'file file)))
(emms-source-playlist-m3u-files)))
@@ -318,7 +318,7 @@ OUT should be the buffer where tracks are stored in m3u format."
(defun emms-source-playlist-parse-pls ()
"Parse the pls playlist in the current buffer."
(mapcar (lambda (file)
- (if (string-match "\\`http://" file)
+ (if (string-match "\\`http://\\|\\`mms://" file)
(emms-track 'url file)
(emms-track 'file file)))
(emms-source-playlist-pls-files)))