@@ -221,17 +221,17 @@ To avoid memory overflows, limit number of entries to LIMIT." (save-match-data (apply #'nconc - (mapcar - (lambda (range) - (cond ((string-match "\\`\\([[:digit:]]+\\)-\\([[:digit:]]+\\)\\'" range) - (number-sequence (string-to-number (match-string 1 range)) + (mapcar + (lambda (range) + (cond ((string-match "\\`\\([[:digit:]]+\\)-\\([[:digit:]]+\\)\\'" range) + (number-sequence (string-to-number (match-string 1 range)) (min limit (string-to-number (match-string 2 range))))) - ((string-match "\\`\\([[:digit:]]+\\)\\'" range) - (list (string-to-number (match-string 1 range)))) - (t (error "Invalid range")))) - (split-string desc ","))))) + ((string-match "\\`\\([[:digit:]]+\\)\\'" range) + (list (string-to-number (match-string 1 range)))) + (t (error "Invalid range")))) + (split-string desc ","))))) (defun sbbs--read-jump-to (nr) "Set point to first character of post with number NR." (let ((up (point-min)) (down (point-max)) current)