--- gnus-util.el~	Thu Apr 20 23:47:32 2000
+++ gnus-util.el	Fri Apr 21 05:22:18 2000
@@ -868,13 +868,12 @@
 	(when (assoc "default" (car rest))
 	  (push (car rest) result))
 	(pop rest)))
-    (setq result (nreverse result))
-    (if (null result)
-	nil
+    (when result
+      (setq result (nreverse result))
       (while (and result
-		  (not (equalp port (or (gnus-netrc-get result) "nntp"))))
+		  (not (equal port (gnus-netrc-get (car result) "port"))))
 	(pop result))
-      result)))
+      (car result))))
 
 (defun gnus-netrc-get (alist type)
   "Return the value of token TYPE from ALIST."