aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen1996-08-29 00:30:44 +0000
committerLars Magne Ingebrigtsen1996-08-29 00:30:44 +0000
commit05066a9270b9cb7e20ae7ad6fe42944c32fd3899 (patch)
treeb998ef93dc1cb642b019d45c7aac8a4be8e28aab /lisp
parent4ee83dcfc0c9b1c3d11aadd4e5e5276c1b8bdcfe (diff)
downloademacs-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.el6
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)