Mercurial > emacs
comparison lisp/gnus/gnus.el @ 57265:cee5a9d8ee71
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-580
Merge from gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-37
Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 29 Sep 2004 06:35:14 +0000 |
| parents | b73fb1c2fd4c |
| children | 5293cc67f41d e23928ac5a97 |
comparison
equal
deleted
inserted
replaced
| 57264:fc40eb786614 | 57265:cee5a9d8ee71 |
|---|---|
| 3306 match)))) | 3306 match)))) |
| 3307 (when result | 3307 (when result |
| 3308 (push (cons server result) gnus-server-method-cache)) | 3308 (push (cons server result) gnus-server-method-cache)) |
| 3309 result))) | 3309 result))) |
| 3310 | 3310 |
| 3311 (defsubst gnus-method-to-server (method) | |
| 3312 (catch 'server-name | |
| 3313 (setq method (or method gnus-select-method)) | |
| 3314 | |
| 3315 ;; Perhaps it is already in the cache. | |
| 3316 (mapc (lambda (name-method) | |
| 3317 (if (equal (cdr name-method) method) | |
| 3318 (throw 'server-name (car name-method)))) | |
| 3319 gnus-server-method-cache) | |
| 3320 | |
| 3321 (mapc | |
| 3322 (lambda (server-alist) | |
| 3323 (mapc (lambda (name-method) | |
| 3324 (when (gnus-methods-equal-p (cdr name-method) method) | |
| 3325 (unless (member name-method gnus-server-method-cache) | |
| 3326 (push name-method gnus-server-method-cache)) | |
| 3327 (throw 'server-name (car name-method)))) | |
| 3328 server-alist)) | |
| 3329 (let ((alists (list gnus-server-alist | |
| 3330 gnus-predefined-server-alist))) | |
| 3331 (if gnus-select-method | |
| 3332 (push (list (cons "native" gnus-select-method)) alists)) | |
| 3333 alists)) | |
| 3334 | |
| 3335 (let* ((name (if (member (cadr method) '(nil "")) | |
| 3336 (format "%s" (car method)) | |
| 3337 (format "%s:%s" (car method) (cadr method)))) | |
| 3338 (name-method (cons name method))) | |
| 3339 (unless (member name-method gnus-server-method-cache) | |
| 3340 (push name-method gnus-server-method-cache)) | |
| 3341 name))) | |
| 3342 | |
| 3343 (defsubst gnus-server-get-method (group method) | 3311 (defsubst gnus-server-get-method (group method) |
| 3344 ;; Input either a server name, and extended server name, or a | 3312 ;; Input either a server name, and extended server name, or a |
| 3345 ;; select method, and return a select method. | 3313 ;; select method, and return a select method. |
| 3346 (cond ((stringp method) | 3314 (cond ((stringp method) |
| 3347 (gnus-server-to-method method)) | 3315 (gnus-server-to-method method)) |