ERC: Track: Fix a perceived minor bug in mode line face selection

* lisp/erc/erc-track.el (erc-track-modified-channels): Fix what is a
probable bug when a new insert event happens for a buffer that was not
tracked or for which no mode line face was selected: in this case,
stop treating the latest buffer's face (first in list) as the previous
one, which could be overridden with an older one (in FACES' rest), as
if it had happened after.

diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el
index 7b9a2e9cd5be9b519e20a5593c27477903ee1de7..2582a5039a677492bf6754886d27c9fe179823fe 100644 (file)
--- a/lisp/erc/erc-track.el
+++ b/lisp/erc/erc-track.el
@@ -818,18 +818,15 @@ is in `erc-mode'."
                      (cons (cons (current-buffer)
                                  (cons
                                    1 (erc-track-select-mode-line-face
-                                      (car faces) (cdr faces))))
+                                      nil faces)))
                            erc-modified-channels-alist))
              ;; Else modify the face for the buffer, if necessary.
              (when faces
                (let* ((cell (assq (current-buffer)
                                   erc-modified-channels-alist))
                       (old-face (cddr cell))
-                      (new-face (if old-face
-                                     (erc-track-select-mode-line-face
-                                      old-face faces)
-                                   (erc-track-select-mode-line-face
-                                    (car faces) (cdr faces)))))
+                      (new-face (erc-track-select-mode-line-face
+                                  old-face faces)))
                  (setcdr cell (cons (1+ (cadr cell)) new-face)))))
            ;; And display it
            (erc-modified-channels-display)))