bug#15058: 24.3; ftp is still broken

[Devon Sean McCullough]

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)))