Permalink
Browse files

Remove dupes when it is useful, not after.

* mingus.el (mingus-add-podcast): `mingus-remove-dupes' was at the wrong point.
  • Loading branch information...
1 parent ae0fd0e commit 4a698a76b57046c85fe84a846196ca0b11badc8f @pft committed Sep 17, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 mingus.el
View
@@ -3108,8 +3108,8 @@ Actually it tries to retrieve any stream from a given url.
(or (cdr (assoc url mingus-podcast-alist))
(assoc url mingus-podcast-alist)
url)))))
- (streams (mingus-streams-from-podcast-with-regexp xml)))
- (mingus-remove-dupes (mapcar 'mingus-add streams)))))
+ (streams (mingus-remove-dupes (mingus-streams-from-podcast-with-regexp xml))))
+ (mapcar 'mingus-add streams))))
;; (defun mingus-streams-from-podcast (xmlstring)
;; (let ((xml

0 comments on commit 4a698a7

Please sign in to comment.