diff -ru zenirc-2.112.orig/src/zenirc.el zenirc-2.112/src/zenirc.el
--- zenirc-2.112.orig/src/zenirc.el	Thu May  7 11:48:58 1998
+++ zenirc-2.112/src/zenirc.el	Tue Feb 20 15:24:57 2001
@@ -590,6 +590,15 @@
 (defvar zenirc-server-502-hook '(zenirc-server-502))
 
 
+(defvar zenirc-font-lock-keywords
+  '(("^\\[\\([^]]+\\)\\].*" 1 font-lock-type-face)
+    ("^\\[[^]]+\\]\\(.*\\)$" 1 font-lock-comment-face)
+    ("^<\\([^>!]+\\)[^>]+>" 1 font-lock-keyword-face)
+    ("^<[^>!]+!\\([^#>]+\\)[^>]+>" 1 font-lock-string-face)
+    ("^<[^>#]+\\(#[^>]+\\)>" 1 font-lock-function-name-face)
+    ("^<[^>]+> \\([^ :]+:\\)" 1 font-lock-keyword-face))
+  "Default expressions to highlight in zenirc mode.")
+
 (defun zenirc-mode ()
   "Major mode for wasting major time on IRC."
   (kill-all-local-variables)
@@ -616,6 +625,8 @@
            (zenirc-current-victim ("->" zenirc-current-victim))
            " "
            "%-"))
+  (make-local-variable 'font-lock-defaults)
+  (setq font-lock-defaults '(zenirc-font-lock-keywords t))
   (zenirc-run-hook 'zenirc-mode-hook))