@@ -79,8 +79,13 @@
              :inherit variable-pitch))
     '((nil :inherit variable-pitch)))
   "Face for code blocks in threads.")
 
+(defface sbbs--post-header-face
+  '((nil :extend t
+         :inherit highlight))
+  "Face for post headers in the thread view.")
+
  ;; VARIABLES
 
 (defvar-local sbbs--board nil
   "Buffer local reference to current board.
@@ -347,9 +352,9 @@
                     (cdr (assq 'date (cdr post)))))
     (when (cdr (assq 'vip (cdr post)))
       (insert " (VIP)"))
     (newline 2)
-    (add-text-properties start (1- (point)) '(face highlight))
+    (add-text-properties start (1- (point)) '(face sbbs--post-header-face))
     (set-text-properties (1- (point)) (point) nil)
     (sbbs--insert-sxml (cdr (assq 'content (cdr post))))
     (add-text-properties start (point) (list 'sbbs-thread-nr (car post)))))
 
@@ -627,9 +632,9 @@
   (dotimes (_ arg)
     (end-of-line)
     (catch 'found
       (while (search-forward-regexp "^#" nil t)
-        (when (and (eq 'highlight (get-text-property (point) 'face))
+        (when (and (eq 'sbbs--post-header-face (get-text-property (point) 'face))
                    (not (get-text-property (point) 'invisible)))
           (throw 'found t)))))
   (beginning-of-line)
   (when sbbs-recenter-to-top
@@ -640,9 +645,9 @@
   (interactive "p")
   (dotimes (_ arg)
     (catch 'found
       (while (search-backward-regexp "^#" nil t)
-        (when (and (eq 'highlight (get-text-property (point) 'face))
+        (when (and (eq 'sbbs--post-header-face (get-text-property (point) 'face))
                    (not (get-text-property (point) 'invisible)))
           (throw 'found t)))))
   (beginning-of-line)
   (when sbbs-recenter-to-top