3308 |
(push (cons server result) gnus-server-method-cache)) |
(push (cons server result) gnus-server-method-cache)) |
3309 |
result))) |
result))) |
3310 |
|
|
|
(defsubst gnus-method-to-server (method) |
|
|
(catch 'server-name |
|
|
(setq method (or method gnus-select-method)) |
|
|
|
|
|
;; Perhaps it is already in the cache. |
|
|
(mapc (lambda (name-method) |
|
|
(if (equal (cdr name-method) method) |
|
|
(throw 'server-name (car name-method)))) |
|
|
gnus-server-method-cache) |
|
|
|
|
|
(mapc |
|
|
(lambda (server-alist) |
|
|
(mapc (lambda (name-method) |
|
|
(when (gnus-methods-equal-p (cdr name-method) method) |
|
|
(unless (member name-method gnus-server-method-cache) |
|
|
(push name-method gnus-server-method-cache)) |
|
|
(throw 'server-name (car name-method)))) |
|
|
server-alist)) |
|
|
(let ((alists (list gnus-server-alist |
|
|
gnus-predefined-server-alist))) |
|
|
(if gnus-select-method |
|
|
(push (list (cons "native" gnus-select-method)) alists)) |
|
|
alists)) |
|
|
|
|
|
(let* ((name (if (member (cadr method) '(nil "")) |
|
|
(format "%s" (car method)) |
|
|
(format "%s:%s" (car method) (cadr method)))) |
|
|
(name-method (cons name method))) |
|
|
(unless (member name-method gnus-server-method-cache) |
|
|
(push name-method gnus-server-method-cache)) |
|
|
name))) |
|
|
|
|
3311 |
(defsubst gnus-server-get-method (group method) |
(defsubst gnus-server-get-method (group method) |
3312 |
;; Input either a server name, and extended server name, or a |
;; Input either a server name, and extended server name, or a |
3313 |
;; select method, and return a select method. |
;; select method, and return a select method. |