From 05066a9270b9cb7e20ae7ad6fe42944c32fd3899 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Thu, 29 Aug 1996 00:30:44 +0000 Subject: [PATCH] 1996-08-28 Lars Magne Ingebrigtsen * gnus.el (gnus-group-read-group): Use range functions instead of list functions for the tick and marks ranges. --- lisp/gnus.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/gnus.el b/lisp/gnus.el index ef3df2ffd1e..1804f0b0cc1 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -5400,8 +5400,10 @@ group." (- (1+ (cdr active)) (car active))))) (gnus-summary-read-group group (or all (and (numberp number) - (zerop (+ number (length (cdr (assq 'tick marked))) - (length (cdr (assq 'dormant marked))))))) + (zerop (+ number (gnus-range-length + (cdr (assq 'tick marked))) + (gnus-range-length + (cdr (assq 'dormant marked))))))) no-article))) (defun gnus-group-select-group (&optional all) -- 2.39.2