From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 30 Jul 1999 15:39:42 +0000 (+0000)
Subject: (finger): Don't do indirect fingering.
X-Git-Tag: emacs-pretest-21.0.90~7310
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fcc68f7d7d52590a8346d05f3d10b75a83cfd5e;p=emacs.git

(finger): Don't do indirect fingering.
---

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."