Subject: Re: bug#15058: 24.3; ftp is still broken

From: Devon Sean McCullough <[email-masked]>
Date: Sat, 10 Aug 2013 16:41:39 +0800

Glenn,

Thanks for the patch - this nearly identical one works great on MacOS.

		Peace
			--Devon

P.S. I added four characters (two carets, a colon and a space)
--- ange-ftp.el.~0~	2013-02-11 09:13:09.000000000 +0800
+++ ange-ftp.el	2013-08-10 15:50:44.000000000 +0800
@@ -700,7 +700,7 @@
   "Regular expression matching the start of a multiline FTP reply.")
 
 (defvar ange-ftp-good-msgs
-  "^220 \\|^230 \\|^226 \\|^25. \\|^221 \\|^200 \\|^[Hh]ash mark"
+  "^220 \\|^230 \\|^226 \\|^25. \\|^221 \\|^200 \\|^[Hh]ash mark\\|^Remote directory: "
   "Regular expression matching FTP \"success\" messages.")
 
 ;; CMS and the odd VMS machine say 200 Port rather than 200 PORT.
@@ -3021,6 +3021,7 @@
     (if (car result)
 	(save-match-data
 	  (and (or (string-match "\"\\([^\"]*\\)\"" line)
+		   (string-match "^Remote directory: \\(.*\\)" line)
 		   (string-match " \\([^ ]+\\) " line))	; stone-age VMS servers!
 	       (setq dir (match-string 1 line)))))
     (cons dir line)))