emacs-diffs
[Top][All Lists]
Advanced

[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 02:44:46 -0400

Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.32 emacs/lisp/gnus/gnus.el:1.33
*** emacs/lisp/gnus/gnus.el:1.32        Mon Sep 27 15:21:12 2004
--- emacs/lisp/gnus/gnus.el     Wed Sep 29 06:35:13 2004
***************
*** 3308,3345 ****
            (push (cons server result) gnus-server-method-cache))
        result)))
  
- (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-get-method (group method)
    ;; Input either a server name, and extended server name, or a
    ;; select method, and return a select method.
--- 3308,3313 ----




reply via email to

[Prev in Thread] Current Thread [Next in Thread]