Passing Username for M-x rsh

Passing Username for M-x rsh

[Annamalai Gurusami]

Hi All,

When I use M-x rsh to login to a remote host, how can I specify the
username?  When I do M-x rsh, I am prompted for a hostname; Once I
provide the hostname, I am then prompted for a password, without being
asked for a username.  

Currently, I provide a wrong password, and then I get prompted for a
username.  This is cumbersome.  Any help?

Rgds,
anna

-- 

What you spend years building may be destroyed overnight.  
Build anyway.     http://www.paradoxicalcommandments.com

Re: Passing Username for M-x rsh

[Katsumi Yamaoka]

>>>>> In <mailman.49.1142416858.9686.help-gnu-emacs@gnu.org>
>>>>>	Annamalai Gurusami wrote:

> When I use M-x rsh to login to a remote host, how can I specify the
> username?  When I do M-x rsh, I am prompted for a hostname; Once I
> provide the hostname, I am then prompted for a password, without being
> asked for a username.

> Currently, I provide a wrong password, and then I get prompted for a
> username.  This is cumbersome.  Any help?

You can override the rsh command like the following (it can be
added to the ~/.emacs file):

(defadvice rsh (around prompt-for-username (host &optional user) activate)
  "If given a prefix argument, prompt for a user name."
  (interactive "sOpen rsh connection to host: \nP")
  (if (and user
	   (interactive-p))
      (setq user
	    (let ((minibuffer-setup-hook '(beginning-of-line)))
	      (read-string "User name: "
			   (user-login-name) nil (user-login-name)))))
  (require 'shell)
  (let ((name (concat "rsh-" host )))
    (pop-to-buffer
     (if user
	 (make-comint name remote-shell-program nil host "-l" user)
       (make-comint name remote-shell-program nil host)))
    (set-process-filter (get-process name) 'telnet-initial-filter)
    (telnet-mode)
    (setq telnet-count -16)))