[gnus git] branch master updated: m0-13-113-g7ef58ef =1= Honor docstring of gnus-group-get-new-news

       via  7ef58efd161bbcc11df99ec7a4856a3f3bf84896 (commit)
      from  437c0792b00432e71d73dcbb14e6fa9aa83b8104 (commit)


- Log -----------------------------------------------------------------
commit 7ef58efd161bbcc11df99ec7a4856a3f3bf84896
Author: Eric Abrahamsen <[email protected]>
Date:   Thu Jan 14 12:25:21 2016 +0800

    Honor docstring of gnus-group-get-new-news
    
    * lisp/gnus-start.el (gnus-get-unread-articles): If the prefix arg is t,
      but non-numeric, unconditionally consider all groups to need updating.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index f03ff85..f2e6978 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -1672,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 (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))
+		      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.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/gnus-start.el |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project