Mercurial > emacs
comparison lisp/gnus/gnus-start.el @ 111441:b527d5f89f7f
gnus-group.el (gnus-group-read-ephemeral-group, gnus-group-make-group): Remove superfluous ": " from the prompt.
gnus-start.el (gnus-get-unread-articles, gnus-read-active-file): Ignore totally non-existent methods.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 08 Nov 2010 01:38:47 +0000 |
| parents | 0c7c9736f766 |
| children | db63bc492d85 |
comparison
equal
deleted
inserted
replaced
| 111440:b72ff43b041f | 111441:b527d5f89f7f |
|---|---|
| 1700 ;; Start early async retrieval of data. | 1700 ;; Start early async retrieval of data. |
| 1701 (dolist (elem type-cache) | 1701 (dolist (elem type-cache) |
| 1702 (destructuring-bind (method method-type infos dummy) elem | 1702 (destructuring-bind (method method-type infos dummy) elem |
| 1703 (when (and method infos | 1703 (when (and method infos |
| 1704 (not (gnus-method-denied-p method))) | 1704 (not (gnus-method-denied-p method))) |
| 1705 (unless (gnus-server-opened method) | 1705 ;; If the open-server method doesn't exist, then the method |
| 1706 (gnus-open-server method)) | 1706 ;; itself doesn't exist, so we ignore it. |
| 1707 (when (and | 1707 (if (not (ignore-errors (gnus-get-function method 'open-server))) |
| 1708 (gnus-server-opened method) | 1708 (setq type-cache (delq elem type-cache)) |
| 1709 (gnus-check-backend-function | 1709 (unless (gnus-server-opened method) |
| 1710 'retrieve-group-data-early (car method))) | 1710 (gnus-open-server method)) |
| 1711 (when (gnus-check-backend-function 'request-scan (car method)) | 1711 (when (and |
| 1712 (gnus-request-scan nil method)) | 1712 (gnus-server-opened method) |
| 1713 (setcar (nthcdr 3 elem) | 1713 (gnus-check-backend-function |
| 1714 (gnus-retrieve-group-data-early method infos)))))) | 1714 'retrieve-group-data-early (car method))) |
| 1715 (when (gnus-check-backend-function 'request-scan (car method)) | |
| 1716 (gnus-request-scan nil method)) | |
| 1717 (setcar (nthcdr 3 elem) | |
| 1718 (gnus-retrieve-group-data-early method infos))))))) | |
| 1715 | 1719 |
| 1716 ;; Do the rest of the retrieval. | 1720 ;; Do the rest of the retrieval. |
| 1717 (dolist (elem type-cache) | 1721 (dolist (elem type-cache) |
| 1718 (destructuring-bind (method method-type infos early-data) elem | 1722 (destructuring-bind (method method-type infos early-data) elem |
| 1719 (when (and method infos) | 1723 (when (and method infos) |
| 1980 (setq gnus-have-read-active-file nil) | 1984 (setq gnus-have-read-active-file nil) |
| 1981 (with-current-buffer nntp-server-buffer | 1985 (with-current-buffer nntp-server-buffer |
| 1982 (while (setq method (pop methods)) | 1986 (while (setq method (pop methods)) |
| 1983 ;; Only do each method once, in case the methods appear more | 1987 ;; Only do each method once, in case the methods appear more |
| 1984 ;; than once in this list. | 1988 ;; than once in this list. |
| 1985 (unless (member method methods) | 1989 (when (and (not (member method methods)) |
| 1990 ;; Check whether the backend exists. | |
| 1991 (ignore-errors (gnus-get-function method 'open-server))) | |
| 1986 (if (or debug-on-error debug-on-quit) | 1992 (if (or debug-on-error debug-on-quit) |
| 1987 (gnus-read-active-file-1 method force) | 1993 (gnus-read-active-file-1 method force) |
| 1988 (condition-case () | 1994 (condition-case () |
| 1989 (gnus-read-active-file-1 method force) | 1995 (gnus-read-active-file-1 method force) |
| 1990 ;; We catch C-g so that we can continue past servers | 1996 ;; We catch C-g so that we can continue past servers |