[bongo-patches] Add covers for playlists too

[Daniel Brockman]

2007-02-24  Dieter Deyke  <address@hidden>

        Add covers for playlists too.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-02-24 21:50:53.000000000 +0100
+++ new-bongo/bongo.el  2007-02-24 21:50:53.000000000 +0100
@@ -494,8 +494,8 @@
 
 (defcustom bongo-insert-album-covers (and window-system t)
   "Whether to put album cover images into Bongo buffers.
-This is done by `bongo-insert-directory' and by
-  `bongo-insert-directory-tree'.
+This is done by `bongo-insert-directory', `bongo-insert-directory-tree',
+`bongo-insert-m3u-playlist-contents', and `bongo-insert-pls-playlist-contents'.
 See also `bongo-album-cover-file-names'."
   :type 'boolean
   :link '(custom-group-link bongo-file-names)
@@ -6695,6 +6695,7 @@
 (defun bongo-insert-m3u-playlist-contents (file-name)
   "Insert the contents of M3U playlist FILE-NAME."
   (interactive "fInsert contents of M3U playlist file: ")
+  (bongo-maybe-insert-album-cover (file-name-directory file-name))
   (let ((beginning (with-bongo-buffer (point))))
     (with-temp-buffer
       (let ((coding-system-for-read
@@ -6716,6 +6717,7 @@
 (defun bongo-insert-pls-playlist-contents (file-name)
   "Insert the contents of PLS playlist FILE-NAME."
   (interactive "fInsert contents of PLS playlist file: ")
+  (bongo-maybe-insert-album-cover (file-name-directory file-name))
   (let ((beginning (with-bongo-buffer (point))))
     (with-temp-buffer
       (let* ((absolute-file-name (car (insert-file-contents file-name)))

-- 
Daniel Brockman <address@hidden>