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

From: Glenn Morris <[email-masked]>
Date: Fri, 09 Aug 2013 19:45:33 -0400

Maybe this fixes it

*** lisp/net/ange-ftp.el	2013-08-09 21:22:44 +0000
--- lisp/net/ange-ftp.el	2013-08-09 23:44:10 +0000
***************
*** 700,706 ****
    "Regular expression matching the start of a multiline FTP reply.")
  
  (defvar ange-ftp-good-msgs
!   "^220 \\|^230 \\|^226 \\|^25. \\|^221 \\|^200 \\|^[Hh]ash mark"
    "Regular expression matching FTP \"success\" messages.")
  
  ;; CMS and the odd VMS machine say 200 Port rather than 200 PORT.
--- 700,706 ----
    "Regular expression matching the start of a multiline FTP reply.")
  
  (defvar ange-ftp-good-msgs
!   "^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,3026 ****
--- 3021,3027 ----
      (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)))