Index: sbbs.el
==================================================================
--- sbbs.el
+++ sbbs.el
@@ -259,11 +259,12 @@
                            ((/= id sbbs--thread-id)
                             (let ((sbbs--board board))
                               (sbbs-view-open id range)))
                            ;; this thread
                            (range (sbbs--limit-to-range range))))))
-        (insert-button text 'action func 'sbbs-ref range)))))
+        (insert-button (propertize text  'face 'variable-pitch)
+                       'action func 'sbbs-ref range)))))
 
 (defun sbbs--insert-sxml-par (sxml)
   "Insert paragraph contents SXML at point."
   (dolist (it sxml)
     (cond ((stringp it)