projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200401100427.
[elisp/gnus.git-]
/
lisp
/
nnvirtual.el
diff --git
a/lisp/nnvirtual.el
b/lisp/nnvirtual.el
index
76a4670
..
fc9f374
100644
(file)
--- a/
lisp/nnvirtual.el
+++ b/
lisp/nnvirtual.el
@@
-341,7
+341,7
@@
component group will show up when you enter the virtual group.")
;; Make sure all groups are activated.
(mapcar
(lambda (g)
;; Make sure all groups are activated.
(mapcar
(lambda (g)
- (when (not (numberp (car (gnus-gethash g gnus-newsrc-hashtb))))
+ (when (not (numberp (gnus-group-unread g)))
(gnus-activate-group g)))
nnvirtual-component-groups)
(save-excursion
(gnus-activate-group g)))
nnvirtual-component-groups)
(save-excursion
@@
-401,7
+401,7
@@
component group will show up when you enter the virtual group.")
(looking-at
"[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t")
(goto-char (match-end 0))
(looking-at
"[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t")
(goto-char (match-end 0))
- (unless (search-forward "\t" (gnus-point-at-eol) 'move)
+ (unless (search-forward "\t" (point-at-eol) 'move)
(insert "\t"))
;; Remove any spaces at the beginning of the Xref field.
(insert "\t"))
;; Remove any spaces at the beginning of the Xref field.
@@
-417,8
+417,8
@@
component group will show up when you enter the virtual group.")
;; component server prefix.
(save-restriction
(narrow-to-region (point)
;; component server prefix.
(save-restriction
(narrow-to-region (point)
- (or (search-forward "\t" (gnus-point-at-eol) t)
- (gnus-point-at-eol)))
+ (or (search-forward "\t" (point-at-eol) t)
+ (point-at-eol)))
(goto-char (point-min))
(when (re-search-forward "Xref: *[^\n:0-9 ]+ *" nil t)
(replace-match "" t t))
(goto-char (point-min))
(when (re-search-forward "Xref: *[^\n:0-9 ]+ *" nil t)
(replace-match "" t t))