[Emacs-diffs] emacs-25 cde1182: Honor docstring of gnus-group-get-new-news

[Katsumi Yamaoka]

branch: emacs-25
commit cde11820e0ceb78aee2abe72410f658993269d86
Author: Eric Abrahamsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    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 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 4efec86..10f93d8 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.