Index: sbbs.el ================================================================== --- sbbs.el +++ sbbs.el @@ -220,19 +220,19 @@ "Generate list of numbers, as specified by DESC. 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) (while (progn