mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

gnus-start.el (gnus-read-active-file-1): Remove dead parameter infos.

Browse Source
This commit is contained in:
Lars Ingebrigtsen 2011-02-01 02:19:04 +00:00 committed by Katsumi Yamaoka
parent 4fdfcddf73
commit c1d5851dc0
2 changed files with 14 additions and 2 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 @@
2011-02-01 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-start.el (gnus-read-active-file-1): Remove dead parameter infos.
2011-01-31 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (article-transform-date): Rewrite to still work when

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

@ -1700,6 +1700,8 @@ If SCAN, request a scan of that group as well."
'retrieve-group-data-early (car method)))
(when (gnus-check-backend-function 'request-scan (car method))
(gnus-request-scan nil method))
;; Store the token we get back from -early so that we
;; can pass it to -finish later.
(setcar (nthcdr 3 elem)
(gnus-retrieve-group-data-early method infos)))))))
@ -1741,6 +1743,8 @@ If SCAN, request a scan of that group as well."
(defun gnus-read-active-for-groups (method infos early-data)
(with-current-buffer nntp-server-buffer
(cond
;; Finish up getting the data from the methods that have -early
;; methods.
((and
(gnus-check-backend-function 'finish-retrieve-group-infos (car method))
infos
@ -1748,6 +1752,7 @@ If SCAN, request a scan of that group as well."
(gnus-online method)))
(gnus-finish-retrieve-group-infos method infos early-data)
(gnus-agent-save-active method))
;; Most backends have -retrieve-groups.
((and (gnus-check-backend-function 'retrieve-groups (car method))
infos)
(when (gnus-check-backend-function 'request-scan (car method))
@ -1757,8 +1762,11 @@ If SCAN, request a scan of that group as well."
(dolist (info infos (nreverse groups))
(push (gnus-group-real-name (gnus-info-group info)) groups))
method)))
;; Virtually all backends have -request-list.
((gnus-check-backend-function 'request-list (car method))
(gnus-read-active-file-1 method nil infos))
(gnus-read-active-file-1 method nil))
;; Except nnvirtual and friends, where we request each group, one
;; by one.
(t
(dolist (info infos)
(gnus-activate-group (gnus-info-group info) nil nil method t))))))
@ -1987,7 +1995,7 @@ If SCAN, request a scan of that group as well."
(message "Quit reading the active file")
nil))))))))
(defun gnus-read-active-file-1 (method force &optional infos)
(defun gnus-read-active-file-1 (method force)
(let (where mesg)
(setq where (nth 1 method)
mesg (format "Reading active file%s via %s..."