diff options
| author | Lars Magne Ingebrigtsen | 1996-08-29 00:30:44 +0000 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 1996-08-29 00:30:44 +0000 |
| commit | 05066a9270b9cb7e20ae7ad6fe42944c32fd3899 (patch) | |
| tree | b998ef93dc1cb642b019d45c7aac8a4be8e28aab /lisp | |
| parent | 4ee83dcfc0c9b1c3d11aadd4e5e5276c1b8bdcfe (diff) | |
| download | emacs-05066a9270b9cb7e20ae7ad6fe42944c32fd3899.tar.gz emacs-05066a9270b9cb7e20ae7ad6fe42944c32fd3899.zip | |
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')
| -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." | |||
| 5400 | (- (1+ (cdr active)) (car active))))) | 5400 | (- (1+ (cdr active)) (car active))))) |
| 5401 | (gnus-summary-read-group | 5401 | (gnus-summary-read-group |
| 5402 | group (or all (and (numberp number) | 5402 | group (or all (and (numberp number) |
| 5403 | (zerop (+ number (length (cdr (assq 'tick marked))) | 5403 | (zerop (+ number (gnus-range-length |
| 5404 | (length (cdr (assq 'dormant marked))))))) | 5404 | (cdr (assq 'tick marked))) |
| 5405 | (gnus-range-length | ||
| 5406 | (cdr (assq 'dormant marked))))))) | ||
| 5405 | no-article))) | 5407 | no-article))) |
| 5406 | 5408 | ||
| 5407 | (defun gnus-group-select-group (&optional all) | 5409 | (defun gnus-group-select-group (&optional all) |