diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1996-08-29 00:30:44 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 1996-08-29 00:30:44 +0000 |
| commit | 05066a9270b9cb7e20ae7ad6fe42944c32fd3899 (patch) | |
| tree | b998ef93dc1cb642b019d45c7aac8a4be8e28aab /lisp/gnus.el | |
| parent | 4ee83dcfc0c9b1c3d11aadd4e5e5276c1b8bdcfe (diff) | |
| download | emacs-05066a9270b9cb7e20ae7ad6fe42944c32fd3899.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus.el')
| -rw-r--r-- | lisp/gnus.el | 6 |
1 files 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) |