Fix passive mode for tnftp client in ange-ftp.el.

* lisp/net/ange-ftp.el (ange-ftp-passive-mode): Fix passive mode
result string for tnftp client.  (Bug#67865)

Copyright-paperwork-exempt: yes
This commit is contained in:
Christophe Deleuze 2023-12-18 11:13:30 +01:00 committed by Michael Albinus
parent b6429b1c1c
commit 03625c2fef

View file

@ -2164,7 +2164,7 @@ Create a new process if needed."
proc)))
(defun ange-ftp-passive-mode (proc on-or-off)
(if (string-match (concat "Passive mode " on-or-off)
(if (string-match (concat "Passive mode:? " on-or-off)
(cdr (ange-ftp-raw-send-cmd
proc (concat "passive " on-or-off)
"Trying passive mode..." nil)))