* gnus.el (gnus-server-to-method): Fixed bug in 2003-12-22

	check-in.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a3713b..a96b1ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-12-29  Kevin Greiner <kgreiner@xpediantsolutions.com>
+       * gnus.el (gnus-server-to-method): Fixed bug in 2003-12-22
+       check-in.
+
 2003-12-28  Adrian Lanz  <lanz@fowi.ethz.ch>
 
        * mail-source.el (mail-source-fetch-imap): This small patch

diff --git a/lisp/gnus.el b/lisp/gnus.el
index d7f3141..80efafd 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3272,14 +3272,12 @@ that that variable is buffer-local to the summary buffers."
               (let (match)
                 (mapcar 
                  (lambda (info)
-                   (let* ((info-method (gnus-info-method info))
-                          (info-server 
-                           (if (stringp info-method)
-                               info-method
-                             (gnus-method-to-server info-method))))
-                     (setq match (or (equal server info-server)
-                                     match))))
-                        (cdr gnus-newsrc-alist))
+                   (let ((info-method (gnus-info-method info)))
+                     (unless (stringp info-method)
+                       (let ((info-server (gnus-method-to-server info-method)))
+                         (when (equal server info-server)
+                           (setq match info-method))))))
+                 (cdr gnus-newsrc-alist))
                 match))))
         (when result
           (push (cons server result) gnus-server-method-cache))