Index: sbbs.el
==================================================================
--- sbbs.el
+++ sbbs.el
@@ -569,17 +569,20 @@
 
 (defun sbbs-show-replies ()
   "Show all posts responding to post at point."
   (interactive)
   (let ((nr (get-text-property (point) 'sbbs-thread-nr))
-        (point (point)) overlay range)
-    (while (setq overlay (next-button point))
-      (when (memq nr (overlay-get overlay 'sbbs-ref))
-        (push (get-text-property (overlay-start overlay)
-                                 'sbbs-thread-nr)
-              range))
-      (setq point (overlay-end overlay)))
+        overlay range)
+    (save-excursion
+      (while (setq overlay (next-button (point)))
+        (let ((refs (get-text-property (overlay-start overlay)
+                                      'sbbs-ref)))
+          (when (memq nr refs)
+            (push (get-text-property (overlay-start overlay)
+                                     'sbbs-thread-nr)
+                  range)))
+        (goto-char (overlay-end overlay))))
     (if range
         (sbbs--limit-to-range range)
       (message "No posts referencing %d" nr))))
 
 (defun sbbs-view-open (id &optional range)