Index: sbbs.el
==================================================================
--- sbbs.el
+++ sbbs.el
@@ -188,11 +188,11 @@
              (sbbs--insert-link text link)))
           (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)
            (let ((start (point))
@@ -226,11 +226,12 @@
  ;; URL.EL CALLBACKS
 
 (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)
   (let ((list (read (current-buffer))))
@@ -254,11 +255,11 @@
 
 (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)
   (forward-paragraph)
@@ -312,12 +313,12 @@
       (switch-to-buffer (current-buffer)))))
 
 (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))
     (with-current-buffer (generate-new-buffer "*new response*")
@@ -355,11 +356,11 @@
                           (let ((sbbs--board board))
                             (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
       (while (search-forward-regexp "^#" nil t)
@@ -366,11 +367,11 @@
         (when (eq 'highlight (get-text-property (point) 'face))
           (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)
         (when (eq 'highlight (get-text-property (point) 'face))