🚀 go-pugleaf

石川と申します。

From: Shinya Kondo <skondo@roland.co.jp>
Subject: [EFS] gateway, proxy configraton
Date: 25 Dec 1999 11:06:21 +0900

> open proxy_server PORT_NUM
> Connected to proxy_server.
> 220 proxy_server FTP proxy (Version V1.3) ready.
> Name (proxy_server:skondo): quote USER "anonymous"@ftp.xemacs.org
> 501 Bad port number: "USER"
> Login failed.
> ftp> 
> 
> となりftpに失敗してしまいます。
> 
> quote USER
> 
> ってのが必要ないようなのですが、どのようにしたら、上のコマンドラインで実
> 行しているような方法で ftpさせることができるのでしょうか？

efs.el で efs-login-send-user が以下のように定義されていますが、quote
USER が余計なのであれば、

(defun efs-login-send-user (host user proc &optional gate retry)
  "Send user command to HOST and USER. PROC is the ftp client process.
Optional argument GATE specifies which type of gateway is being used.
RETRY argument specifies to try twice if we get a 421 response."
  (let ((cmd (cond
	      ((memq gate '(proxy interlock))
	       (format "quote USER \"%s\"@%s" user
(後略)

の quote USER を消せばいいのではないでしょうか。

(eval-after-load
    "efs"
    '(defun efs-login-send-user (host user proc &optional gate retry)
  "Send user command to HOST and USER. PROC is the ftp client process.
Optional argument GATE specifies which type of gateway is being used.
RETRY argument specifies to try twice if we get a 421 response."
  (let ((cmd (cond
	      ((memq gate '(proxy interlock))
	       (format "\"%s\"@%s" user
(中略)
			  (format "; MOTD of %d lines" n)
			""))))))))

などと ~/.emacs に書いてみたらどうでしょう。
--
石川 一郎  ichiro@39steps.org