sbbs.el

      (setq header-line-format (format "Responding to Thread %d" id)
            sbbs--thread-id id
            sbbs--board board)
      (switch-to-buffer (current-buffer)))))

(defun sbbs-compose-format (style)
  "Insert string STYLE around region or point."
  (save-mark-and-excursion
  (save-excursion
    (if (region-active-p)
        (progn
          (goto-char (region-beginning))
        (let ((beg (region-beginning))
              (end (region-end)))
          (goto-char end)
          (insert style)
          (goto-char (region-end))
          (goto-char beg)
          (insert style))
      (insert style style)))
  (when (< (point) (mark))
  (forward-char (length style)))
    (forward-char (length style))))

(defun sbbs-compose-format-code ()
  "Insert code syntax markers."
  (interactive)
  (sbbs-compose-format "```\n"))

(defun sbbs-compose-format-bold ()