Index: sbbs.el ================================================================== --- sbbs.el +++ sbbs.el @@ -78,10 +78,15 @@ '((nil :font "Mona" :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. @@ -346,11 +351,11 @@ (insert (format "#%d\t%s" (car post) (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))))) (defun sbbs--uncover-spoiler () @@ -626,11 +631,11 @@ (interactive "p") (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 (set-window-start (selected-window) (point)))) @@ -639,11 +644,11 @@ "Move point ARG posts backwards." (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 (set-window-start (selected-window) (point))))