From 9fcc68f7d7d52590a8346d05f3d10b75a83cfd5e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 30 Jul 1999 15:39:42 +0000 Subject: [PATCH] (finger): Don't do indirect fingering. --- lisp/net-utils.el | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) diff --git a/lisp/net-utils.el b/lisp/net-utils.el index 48698db99bf..08aab61f6c8 100644 --- a/lisp/net-utils.el +++ b/lisp/net-utils.el @@ -560,7 +560,7 @@ This list in not complete.") (interactive (let* ((answer (read-from-minibuffer "Finger User: " (net-utils-url-at-point))) - (index (string-match (regexp-quote "@") answer))) + (index (string-match "@" answer))) (if index (list (substring answer 0 index) @@ -568,17 +568,11 @@ This list in not complete.") (list answer (read-from-minibuffer "At Host: " (net-utils-machine-at-point)))))) - (let* ( - (user-and-host (concat user "@" host)) - (process-name - (concat "Finger [" user-and-host "]")) - ) - (run-network-program - process-name - host - (cdr (assoc 'finger network-connection-service-alist)) - user-and-host - ))) + (run-network-program + (concat "Finger [" user "@" host "]") + host + (cdr (assoc 'finger network-connection-service-alist)) + user)) (defcustom whois-server-name "whois.arin.net" "Default host name for the whois service." -- 2.39.5