erc.patch

--- erc-match.el        2009-01-29 12:33:46.000000000 +0100
+++ erc-hacked.el       2008-03-08 20:16:33.000000000 +0100
@@ -1,3 +1,9 @@
+(defcustom erc-text-prematch-hook '()
+  "Hook run before any text matches begin"
+  :options '()
+  :group 'erc-match
+  :type 'hook)
+
(defun erc-match-message ()
  "Mark certain keywords in a region.
Use this defun with `erc-insert-modify-hook'."
@@ -21,6 +27,9 @@ Use this defun with `erc-insert-modify-h
                                       (+ 2 nick-end)
                                     (point-min))
                                   (point-max))))
+    (progn (run-hook-with-args
+         'erc-text-prematch-hook
+         nickname message)
    (when vector
      (mapc
       (lambda (match-type)
@@ -95,4 +104,4 @@ Use this defun with `erc-insert-modify-h
             message))))
       (if nickuserhost
          (append to-match-nick-dep to-match-nick-indep)
-        to-match-nick-indep)))))
+             to-match-nick-indep))))))