Index: sbbs.el
==================================================================
--- sbbs.el
+++ sbbs.el
@@ -65,10 +65,17 @@
 (defface sbbs--code-face
   '((((background light)) :background "gray89" :extend t)
     (((background dark)) :background "gray11" :extend t))
   "Face for code blocks in threads.")
 
+(defface sbbs--variable-pitch
+  (if (x-list-fonts "Mona-")
+      '((nil :font "Mona"
+             :inherit variable-pitch))
+    '((nil :inherit variable-pitch)))
+  "Face for code blocks in threads.")
+
  ;; VARIABLES
 
 (defvar-local sbbs--board nil
   "Buffer local reference to current board.
 
@@ -261,24 +268,24 @@
                            ((/= id sbbs--thread-id)
                             (let ((sbbs--board board))
                               (sbbs-view-open id range)))
                            ;; this thread
                            (range (sbbs--limit-to-range range))))))
-        (insert-button (propertize text  'face 'variable-pitch)
+        (insert-button (propertize text  'face 'sbbs--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)
-           (insert (propertize it 'face 'variable-pitch)))
+           (insert (propertize it 'face 'sbbs--variable-pitch)))
           ((eq (car it) 'br)
            (newline))
           ((eq (car it) 'b)
-           (insert (propertize (cadr it) 'face '(bold variable-pitch))))
+           (insert (propertize (cadr it) 'face '(bold sbbs--variable-pitch))))
           ((eq (car it) 'i)
-           (insert (propertize (cadr it) 'face '(italic variable-pitch))))
+           (insert (propertize (cadr it) 'face '(italic sbbs--variable-pitch))))
           ((eq (car it) 'code)
            (insert (propertize (cadr it) 'face 'fixed-pitch)))
           ((eq (car it) 'del)
            (insert (propertize (cadr it) 'face 'sbbs--spoiler-face)))
           ((eq (car it) 'a)
@@ -386,11 +393,11 @@
                                            0 16)
                                 (number-to-string
                                  (cdr (assq 'messages (cdr thread))))
                                 (propertize
                                  (cdr (assq 'headline (cdr thread)))
-                                 'face 'variable-pitch)))
+                                 'face 'sbbs--variable-pitch)))
                   ent))
           (setq-local tabulated-list-entries ent)
           (tabulated-list-print t t)
           (hl-line-highlight))))))