/[emacs]/emacs/lisp/gnus/gnus.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by rsteib, Mon Sep 27 15:21:12 2004 UTC revision 1.33 by miles, Wed Sep 29 06:35:13 2004 UTC
# Line 3308  that that variable is buffer-local to th Line 3308  that that variable is buffer-local to th
3308            (push (cons server result) gnus-server-method-cache))            (push (cons server result) gnus-server-method-cache))
3309          result)))          result)))
3310    
 (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)))  
   
3311  (defsubst gnus-server-get-method (group method)  (defsubst gnus-server-get-method (group method)
3312    ;; Input either a server name, and extended server name, or a    ;; Input either a server name, and extended server name, or a
3313    ;; select method, and return a select method.    ;; select method, and return a select method.

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26