projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4b3d96f
)
(gnus-get-unread-articles): Fix previous commit.
author
Katsumi Yamaoka
<yamaoka@jpl.org>
Fri, 21 May 2004 04:03:38 +0000
(
04:03
+0000)
committer
Katsumi Yamaoka
<yamaoka@jpl.org>
Fri, 21 May 2004 04:03:38 +0000
(
04:03
+0000)
lisp/gnus-start.el
patch
|
blob
|
history
diff --git
a/lisp/gnus-start.el
b/lisp/gnus-start.el
index
db90134
..
6a43ff3
100644
(file)
--- a/
lisp/gnus-start.el
+++ b/
lisp/gnus-start.el
@@
-1643,7
+1643,7
@@
newsgroup."
(methods-cache nil)
(type-cache nil)
scanned-methods info group active method retrieve-groups cmethod
(methods-cache nil)
(type-cache nil)
scanned-methods info group active method retrieve-groups cmethod
- method-type)
+ method-type
ignore
)
(gnus-message 6 "Checking new news...")
(while newsrc
(gnus-message 6 "Checking new news...")
(while newsrc
@@
-1680,6
+1680,7
@@
newsgroup."
'foreign)))
(push (cons method method-type) type-cache))
'foreign)))
(push (cons method method-type) type-cache))
+ (setq ignore nil)
(cond ((and method (eq method-type 'foreign))
;; These groups are foreign. Check the level.
(if (<= (gnus-info-level info) foreign-level)
(cond ((and method (eq method-type 'foreign))
;; These groups are foreign. Check the level.
(if (<= (gnus-info-level info) foreign-level)
@@
-1694,7
+1695,7
@@
newsgroup."
(when (fboundp (intern (concat (symbol-name (car method))
"-request-update-info")))
(inline (gnus-request-update-info info method))))
(when (fboundp (intern (concat (symbol-name (car method))
"-request-update-info")))
(inline (gnus-request-update-info info method))))
- (setq
active nil
)))
+ (setq
ignore t
)))
;; These groups are native or secondary.
((> (gnus-info-level info) level)
;; We don't want these groups.
;; These groups are native or secondary.
((> (gnus-info-level info) level)
;; We don't want these groups.
@@
-1734,7
+1735,8
@@
newsgroup."
;; Don't do anything.
)
(active
;; Don't do anything.
)
(active
- (inline (gnus-get-unread-articles-in-group info active t)))
+ (unless ignore
+ (inline (gnus-get-unread-articles-in-group info active t))))
(t
;; The group couldn't be reached, so we nix out the number of
;; unread articles and stuff.
(t
;; The group couldn't be reached, so we nix out the number of
;; unread articles and stuff.