* lisp/net/net-utils.el (finger): Fix botched logic.

diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index ea4318e21b534e5bead166141b0e9734a457d4b6..cb725c0674e25b3dd5b81a16beb553b4559add38 100644 (file)
--- a/lisp/net/net-utils.el
+++ b/lisp/net/net-utils.el
@@ -774,11 +774,11 @@ and `network-connection-service-alist', which see."
         (process-name (concat "Finger [" user-and-host "]"))
         (regexps finger-X.500-host-regexps)
         ) ;; found
-    (and regexps
-        (while (not (string-match (car regexps) host))
-          (setq regexps (cdr regexps)))
-        (when regexps
-          (setq user-and-host user)))
+    (when regexps
+      (while (not (string-match (car regexps) host))
+       (setq regexps (cdr regexps)))
+      (when regexps
+       (setq user-and-host user)))
     (run-network-program
      process-name
      host