From 1f5eeb7be4ac31986baae6abc279b1685ad57a5b Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Thu, 4 Feb 2016 11:14:39 +0000 Subject: [PATCH] Honor docstring of gnus-group-get-new-news * lisp/gnus/gnus-start.el (gnus-get-unread-articles): If the prefix arg is t, but non-numeric, unconditionally consider all groups to need updating. --- lisp/gnus/gnus-start.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 4efec86f6e0..f2e69781fc1 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -122,7 +122,6 @@ This variable can be a list of select methods which Gnus will query with the `ask-server' method in addition to the primary, secondary, and archive servers. - E.g.: (setq gnus-check-new-newsgroups \\='((nntp \"some.server\") (nntp \"other.server\"))) @@ -1673,10 +1672,11 @@ backend check whether the group actually exists." (push (setq method-group-list (list method method-type nil nil)) type-cache)) ;; Only add groups that need updating. - (if (funcall (if one-level #'= #'<=) (gnus-info-level info) - (if (eq (cadr method-group-list) 'foreign) - foreign-level - alevel)) + (if (or (and foreign-level (null (numberp foreign-level))) + (funcall (if one-level #'= #'<=) (gnus-info-level info) + (if (eq (cadr method-group-list) 'foreign) + foreign-level + alevel))) (setcar (nthcdr 2 method-group-list) (cons info (nth 2 method-group-list))) ;; The group is inactive, so we nix out the number of unread articles. -- 2.39.2