@@ -189,9 +189,9 @@
           (t (insert (prin1-to-string it)))))
   (insert ?\n))
 
 (defun sbbs--insert-sxml (sxml)
-  "Insert top-level SXML into buffer at point."
+  "Insert top level SXML into buffer at point."
   (dolist (par sxml)
     (cond ((eq (car par) 'p)
            (sbbs--insert-sxml-par (cdr par)))
           ((eq (car par) 'blockquote)
@@ -227,9 +227,10 @@
 
 (defun sbbs--board-loader (status buf)
   "Callback function for `url-retrieve' when loading board.
 
-Load results into buffer BUF."
+Load results into buffer BUF. STATUS is used to check for
+errors."
   (when (plist-get status :error)
     (message "Error while loading: %s"
              (cdr (plist-get status :error))))
   (forward-paragraph)
@@ -255,9 +256,9 @@
 (defun sbbs--thread-loader (status board id)
   "Callback function for `url-retrieve' when loading thread.
 
 The attribute ID determines what thread from board BOARD to
-load."
+load. STATUS is used to check for errors."
   (when (plist-get status :error)
     (message "Error while loading: %s"
              (cdr (plist-get status :error))))
   (prog-mode)
@@ -313,10 +314,10 @@
 
 (defun sbbs-read-reply (arg)
   "Create buffer to start a reply in current thread.
 
-With \\[universal-argument] add a reply reference to thread at
-point."
+With \\[universal-argument] interactivly, or a non-nil ARG, add a
+reply reference to thread at point."
   (interactive "P")
   (let ((id sbbs--thread-id)
         (nr (get-text-property (point) 'sbbs-thread-nr))
         (board sbbs--board))
@@ -356,9 +357,9 @@
                             (sbbs--reload-thread))))
                   (list (current-buffer)))))
 
 (defun sbbs-read-next (arg)
-  "Move point to next thread header."
+  "Move point ARG posts forward."
   (interactive "p")
   (dotimes (_ arg)
     (end-of-line)
     (catch 'found
@@ -367,9 +368,9 @@
           (throw 'found t)))))
   (beginning-of-line))
 
 (defun sbbs-read-previous (arg)
-  "Move point to previous thread header."
+  "Move point ARG posts backwards."
   (interactive "p")
   (dotimes (_ arg)
     (catch 'found
       (while (search-backward-regexp "^#" nil t)