[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 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 ----
- [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 <=
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el, Miles Bader, 2004/09/29