[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1f5eeb7: Honor docstring of gnus-group-get-new-news
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 1f5eeb7: Honor docstring of gnus-group-get-new-news |
Date: |
Thu, 04 Feb 2016 11:15:15 +0000 |
branch: master
commit 1f5eeb7be4ac31986baae6abc279b1685ad57a5b
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..f2e6978 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1f5eeb7: Honor docstring of gnus-group-get-new-news,
Katsumi Yamaoka <=