Message prefixes now have context face.

diff --git a/lurk.el b/lurk.el
index fb1c258..a8f8a7a 100644 (file)
--- a/lurk.el
+++ b/lurk.el
@@ -442,11 +442,13 @@ portion of the source component of the message, as LURK doesn't use this.")
                    (if (equal to lurk-nick) from to))))
     (lurk-display-string
      context
                    (if (equal to lurk-nick) from to))))
     (lurk-display-string
      context

-     (pcase (lurk-get-context-type to)
-       ('channel (concat to " <" from ">"))
-       ('nick (concat "[" from " -> " to "]"))
-       (_
-        (error "Unsupported context type")))
+     (propertize
+      (pcase (lurk-get-context-type to)
+        ('channel (concat to " <" from ">"))
+        ('nick (concat "[" from " -> " to "]"))
+        (_
+         (error "Unsupported context type")))
+      'face (lurk-get-context-facelist context))

      text)))
 
 (defun lurk-display-action (from to action-text)
      text)))
 
 (defun lurk-display-action (from to action-text)