@@ -221,10 +221,12 @@
               (group-n 1 (or ,@(mapcar #'sbbs--board-domain
                                        (sbbs--list-boards))))
               "/" (group-n 2 (+ alnum))
               "/" (group-n 3 (+ digit))
-              (? "#t" (backref 3)
-                 "p" (group-n 4 (+ digit)))))
+              (? (or (: "/" (group-n 4 (: (+ digit) (? "-" (+ digit)))
+                                     (* "," (+ digit) (? "-" (+ digit)))))
+                     (: "#t" (backref 3)
+                        "p" (group-n 4 (+ digit)))))))
        eos))
   "Regular expression to destruct internal links.")
 
 (defun sbbs--limit-to-range (spec &optional no-push-p)