mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 14:02:07 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-585

Browse source 
Merge from gnus--rel--5.10

Patches applied:

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-38
   Update from CVS
This commit is contained in:
Miles Bader 2004-09-29 22:52:05 +00:00
parent 30857a614a
commit 14e20e1309
2 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -1,3 +1,7 @@
2004-09-29 Jesper Harder <harder@ifa.au.dk>
* gnus.el (gnus-method-to-server): Oops, move it don't delete it.
2004-09-28 Jesper Harder <harder@ifa.au.dk>
* gnus-picon.el: Require cl.

32
lisp/gnus/gnus.el
View file

@ -3261,6 +3261,38 @@ that that variable is buffer-local to the summary buffers."
(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)