Index: sbbs.el
==================================================================
--- sbbs.el
+++ sbbs.el
@@ -226,10 +226,11 @@
   (when (buffer-live-p buf)
     (when (plist-get status :error)
       (error "Error while loading: %s"
              (cdr (plist-get status :error))))
     (forward-paragraph)
+    (decode-coding-region (point-min) (point-max) 'utf-8)
     (let ((list (read (current-buffer))))
       (kill-buffer)
       (with-current-buffer buf
         (let (ent)
           (dolist (thread list)
@@ -255,10 +256,11 @@
     (when (plist-get status :error)
       (error "Error while loading: %s"
              (cdr (plist-get status :error))))
     (prog-mode)
     (forward-paragraph)
+    (decode-coding-region (point) (point-max) 'utf-8)
     (save-excursion
       (save-match-data
         (while (search-forward "#f" nil t)
           (unless (cadddr (syntax-ppss))
             (replace-match "nil")))))