[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.26.6.4 emacs/lisp/gnus/gnus.el:1.26.6.5
*** emacs/lisp/gnus/gnus.el:1.26.6.4    Wed Sep 29 07:22:15 2004
--- emacs/lisp/gnus/gnus.el     Thu Sep 30 01:20:37 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)