mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

nnvirtual.el (nnvirtual-create-mapping): Use the active info we already have if we're in a main Gnus `g' run.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-05 23:20:25 +00:00 committed by Katsumi Yamaoka
parent d65835d93b
commit 0c6dfaf849
3 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View File

@ -1,5 +1,8 @@
2010-09-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnvirtual.el (nnvirtual-create-mapping): Use the active info we
already have if we're in a main Gnus `g' run.
* gnus-start.el (gnus-method-rank): Get info for virtual groups last.
2010-09-05 Katsumi Yamaoka <yamaoka@jpl.org>

2
lisp/gnus/gnus-start.el
View File

@ -1796,7 +1796,7 @@ If SCAN, request a scan of that group as well."
(gnus-read-active-file-1 method nil))
(t
(dolist (info infos)
(gnus-activate-group (gnus-info-group info) nil nil method))))))
(gnus-activate-group (gnus-info-group info) nil t method))))))
;; Create a hash table out of the newsrc alist. The `car's of the
;; alist elements are used as keys.

18
lisp/gnus/nnvirtual.el
View File

@ -260,13 +260,11 @@ component group will show up when you enter the virtual group.")
(nnheader-report 'nnvirtual "No component groups in %s" group))
(t
(setq nnvirtual-current-group group)
(when (or (not dont-check)
nnvirtual-always-rescan)
(nnvirtual-create-mapping)
(when nnvirtual-always-rescan
(nnvirtual-request-update-info
(nnvirtual-current-group)
(gnus-get-info (nnvirtual-current-group)))))
(nnvirtual-create-mapping dont-check)
(when nnvirtual-always-rescan
(nnvirtual-request-update-info
(nnvirtual-current-group)
(gnus-get-info (nnvirtual-current-group))))
(nnheader-insert "211 %d 1 %d %s\n"
nnvirtual-mapping-len nnvirtual-mapping-len group))))
@ -670,7 +668,7 @@ the result."
carticles))
(defun nnvirtual-create-mapping ()
(defun nnvirtual-create-mapping (dont-check)
"Build the tables necessary to map between component (group, article) to virtual article.
Generate the set of read messages and marks for the virtual group
based on the marks on the component groups."
@ -689,7 +687,9 @@ based on the marks on the component groups."
;; Into all-marks we put (g marks).
;; We also increment cnt and tot here, and compute M (max of sizes).
(mapc (lambda (g)
(setq active (gnus-activate-group g)
(setq active (or (and dont-check
(gnus-active g))
(gnus-activate-group g))
min (car active)
max (cdr active))
(when (and active (>= max min) (not (zerop max)))