Mercurial > emacs

changeset 15959:2f732db1918c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1996-08-28 Lars Magne Ingebrigtsen <larsi@ifi.uio.no> * gnus.el (gnus-group-read-group): Use range functions instead of list functions for the tick and marks ranges.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Thu, 29 Aug 1996 00:30:44 +0000
parents 58742d1b996a
children 12c61b25b7b6
files lisp/gnus.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus.el	Wed Aug 28 23:36:44 1996 +0000
+++ b/lisp/gnus.el	Thu Aug 29 00:30:44 1996 +0000
@@ -5400,8 +5400,10 @@
 		 (- (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)