Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 099116f10d75812b828cba4a7b9f8d253ea4859f 1 parent adf912c
@larsmagne larsmagne authored
Showing with 13 additions and 10 deletions.
  1. +13 −10 lisp/gnus.el
View
23 lisp/gnus.el
@@ -1200,7 +1200,7 @@ variable (string, integer, character, etc).")
(defconst gnus-maintainer "Lars Magne Ingebrigtsen <larsi@ifi.uio.no>"
"The mail address of the Gnus maintainer.")
-(defconst gnus-version "(ding) Gnus v0.42"
+(defconst gnus-version "(ding) Gnus v0.43"
"Version number for this version of Gnus.")
(defvar gnus-info-nodes
@@ -5639,17 +5639,20 @@ The resulting hash table is returned, or nil if no Xrefs were found."
;; articles there are in this group.
(if active
(progn
- (if (atom (cdr range))
- (if (not range)
- (setq num (- (1+ (cdr active))
- (car active)))
- (setq num (- (cdr active) (- (1+ (cdr range))
- (car range)))))
+ (cond
+ ((not range)
+ (setq num (- (1+ (cdr active)) (car active))))
+ ((not (listp (cdr range)))
+ (setq num (- (cdr active) (- (1+ (cdr range))
+ (car range)))))
+ (t
(while range
- (setq num (+ num (- (1+ (or (and (numberp (car range)) (car range)) (cdr (car range))))
- (or (and (numberp (car range)) (car range)) (car (car range))))))
+ (if (numberp (car range))
+ (setq num (1+ num))
+ (setq num (+ num (- (1+ (cdr (car range)))
+ (car (car range))))))
(setq range (cdr range)))
- (setq num (- (cdr active) num)))
+ (setq num (- (cdr active) num))))
;; Update the number of unread articles.
(setcar
entry
Please sign in to comment.
Something went wrong with that request. Please try again.