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

[Mattias Engdegård]

branch: master
commit e7dc30c1d58c602ccc4b7b9c98c0ea07f5631675
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    * lisp/net/net-utils.el (finger): Fix botched logic.
---
 lisp/net/net-utils.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index ea4318e21b5..cb725c0674e 100644
--- 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