Mercurial > emacs
comparison lisp/gnus/gnus.el @ 91073:4bc33ffdda1a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 902-908)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 131-137)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 261-262)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-278
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 27 Oct 2007 09:12:07 +0000 |
parents | bdb3fe0ba9fa b210bba3f477 |
children | 880960b70474 |
comparison
equal
deleted
inserted
replaced
91072:74ab3ea909f9 | 91073:4bc33ffdda1a |
---|---|
3510 (while (and servers | 3510 (while (and servers |
3511 (not (equal server (format "%s:%s" (caar servers) | 3511 (not (equal server (format "%s:%s" (caar servers) |
3512 (cadar servers))))) | 3512 (cadar servers))))) |
3513 (pop servers)) | 3513 (pop servers)) |
3514 (car servers)) | 3514 (car servers)) |
3515 ;; This could be some sort of foreign server that I | 3515 ;; This could be some sort of foreign server that I |
3516 ;; simply haven't opened (yet). Do a brute-force scan | 3516 ;; simply haven't opened (yet). Do a brute-force scan |
3517 ;; of the entire gnus-newsrc-alist for the server name | 3517 ;; of the entire gnus-newsrc-alist for the server name |
3518 ;; of every method. As a side-effect, loads the | 3518 ;; of every method. As a side-effect, loads the |
3519 ;; gnus-server-method-cache so this only happens once, | 3519 ;; gnus-server-method-cache so this only happens once, |
3520 ;; if at all. | 3520 ;; if at all. |
3521 (let (match) | 3521 (let ((alist (cdr gnus-newsrc-alist)) |
3522 (mapcar | 3522 method match) |
3523 (lambda (info) | 3523 (while alist |
3524 (let ((info-method (gnus-info-method info))) | 3524 (setq method (gnus-info-method (pop alist))) |
3525 (unless (stringp info-method) | 3525 (when (and (not (stringp method)) |
3526 (let ((info-server (gnus-method-to-server info-method))) | 3526 (equal server (gnus-method-to-server method))) |
3527 (when (equal server info-server) | 3527 (setq match method |
3528 (setq match info-method)))))) | 3528 alist nil))) |
3529 (cdr gnus-newsrc-alist)) | 3529 match)))) |
3530 match)))) | 3530 (when result |
3531 (when result | 3531 (push (cons server result) gnus-server-method-cache)) |
3532 (push (cons server result) gnus-server-method-cache)) | |
3533 result))) | 3532 result))) |
3534 | 3533 |
3535 (defsubst gnus-server-get-method (group method) | 3534 (defsubst gnus-server-get-method (group method) |
3536 ;; Input either a server name, and extended server name, or a | 3535 ;; Input either a server name, and extended server name, or a |
3537 ;; select method, and return a select method. | 3536 ;; select method, and return a select method. |