[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el |
Date: |
Wed, 29 Sep 2004 18:58:51 -0400 |
Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.33 emacs/lisp/gnus/gnus.el:1.34
*** emacs/lisp/gnus/gnus.el:1.33 Wed Sep 29 06:35:13 2004
--- emacs/lisp/gnus/gnus.el Wed Sep 29 22:52:05 2004
***************
*** 3261,3266 ****
--- 3261,3298 ----
(nth 1 method))))
method)))
+ (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)))
+
(defsubst gnus-server-to-method (server)
"Map virtual server names to select methods."
(or (and server (listp server) server)
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el, Miles Bader, 2004/09/04
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el, Reiner Steib, 2004/09/08
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el, Miles Bader, 2004/09/20
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el, Miles Bader, 2004/09/27
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el, Reiner Steib, 2004/09/27
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el, Miles Bader, 2004/09/29
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el,
Miles Bader <=