bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#15058: 24.3; ftp is still broken


From: Glenn Morris
Subject: bug#15058: 24.3; ftp is still broken
Date: Fri, 09 Aug 2013 19:45:33 -0400
User-agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/)

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






reply via email to

[Prev in Thread] Current Thread [Next in Thread]