Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(nnvirtual-create-mapping): Don't use mapc.

Browse source
This commit is contained in:
Dave Love 1999-10-23 12:00:04 +00:00
parent 83a4cf1d14
commit 54b029480e
2 changed files with 25 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
1999-10-23 Dave Love <fx@gnu.org>
* nnvirtual.el (nnvirtual-create-mapping): Don't use mapc.
1999-10-19 Dave Love <fx@gnu.org>
* pop3.el: Merge changes from version `1.3s' which we weren't sent.

42
lisp/gnus/nnvirtual.el
View file

@ -671,27 +671,27 @@ based on the marks on the component groups."
;; Into all-unreads we put (g unreads).
;; 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)
min (car active)
max (cdr active))
(when (and active (>= max min) (not (zerop max)))
;; store active information
(push (list g (- max min -1) max) actives)
;; collect unread/mark info for later
(setq unreads (gnus-list-of-unread-articles g))
(setq marks (gnus-info-marks (gnus-get-info g)))
(when gnus-use-cache
(push (cons 'cache
(gnus-cache-articles-in-group g))
marks))
(push (cons g unreads) all-unreads)
(push (cons g marks) all-marks)
;; count groups, total #articles, and max size
(setq size (- max min -1))
(setq cnt (1+ cnt)
tot (+ tot size)
M (max M size))))
(mapcar (lambda (g)
(setq active (gnus-activate-group g)
min (car active)
max (cdr active))
(when (and active (>= max min) (not (zerop max)))
;; store active information
(push (list g (- max min -1) max) actives)
;; collect unread/mark info for later
(setq unreads (gnus-list-of-unread-articles g))
(setq marks (gnus-info-marks (gnus-get-info g)))
(when gnus-use-cache
(push (cons 'cache
(gnus-cache-articles-in-group g))
marks))
(push (cons g unreads) all-unreads)
(push (cons g marks) all-marks)
;; count groups, total #articles, and max size
(setq size (- max min -1))
(setq cnt (1+ cnt)
tot (+ tot size)
M (max M size))))
nnvirtual-component-groups)
;; Number of articles in the virtual group.