[bongo-patches] Fix `E' when the current track is not in the playlist (I'm not sure if this is what the TODO item referred to)

[Daniel Brockman]

2007-04-09  Daniel Brockman  <address@hidden>

        Fix `E' when the current track is not in the playlist
        (I'm not sure if this is what the TODO item referred to).

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-04-09 01:52:20.000000000 +0200
+++ new-bongo/bongo.el  2007-04-09 01:52:20.000000000 +0200
@@ -46,8 +46,6 @@
 ;; Implement `bongo-file-name-roots' so that forcer can try
 ;; out Bongo. :-)
 
-;; Fix `E' when the playing song is not in the playlist.
-
 ;; Customizing `bongo-header-line-mode' should have
 ;; immediate effect on existing Bongo playlist buffers.
 
@@ -8018,13 +8016,14 @@
   (let ((insertion-point
          (with-current-buffer (bongo-playlist-buffer)
            (save-excursion
-             (ecase mode
-               (insert (if (bongo-point-at-current-track-line)
-                           (bongo-goto-point
-                            (bongo-point-after-line
-                             (bongo-point-at-current-track-line)))
-                         (goto-char (point-min))))
-               (append (goto-char (point-max))))
+             (goto-char
+              (ecase mode
+                (insert (or (and (bongo-point-at-current-track-line)
+                                 (bongo-point-after-line
+                                  (bongo-point-at-current-track-line)))
+                            (bongo-point-at-first-track-line)
+                            (point-max)))
+                (append (point-max))))
              (prog1 (point)
                (remove-text-properties
                 0 (length text)

-- 
Daniel Brockman <address@hidden>