--- erc-track.el.orig	2006-06-01 21:23:28.000000000 -0400
+++ erc-track.el	2006-06-01 22:49:21.000000000 -0400
@@ -708,13 +708,19 @@
 	;; necessary.  See `erc-modified-channels-alist' for the
 	;; exact data structure used.
 	(let ((faces (erc-faces-in (buffer-string))))
-	  (unless (and
-		   (or (eq erc-track-priority-faces-only 'all)
-		       (member this-channel erc-track-priority-faces-only))
-		   (not (catch 'found
-			  (dolist (f faces)
-			    (when (member f erc-track-faces-priority-list)
-			      (throw 'found t))))))
+	  (unless (or
+		   (save-excursion
+		     (dolist (regexp erc-track-ignore-list result)
+		       (goto-char (point-min))
+		       (if (re-search-forward regexp nil t)
+			   (setq result t))))
+		   (and
+		    (or (eq erc-track-priority-faces-only 'all)
+			(member this-channel erc-track-priority-faces-only))
+		    (not (catch 'found
+			   (dolist (f faces)
+			     (when (member f erc-track-faces-priority-list)
+			       (throw 'found t)))))))
 	    (if (not (assq (current-buffer) erc-modified-channels-alist))
 		;; Add buffer, faces and counts
 		(setq erc-modified-channels-alist