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.