From e7dc30c1d58c602ccc4b7b9c98c0ea07f5631675 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sun, 14 May 2023 17:41:14 +0200 Subject: [PATCH] * 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 -- 2.39.5