diff options
Diffstat (limited to 'lisp/net/net-utils.el')
| -rw-r--r-- | lisp/net/net-utils.el | 10 |
1 files 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 |