# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 958156645 0
# Node ID 19ae39682b3873f4eb182df7d9017525740a6d29
# Parent  70c93cd90fc61a6083b22f2d7408b7ddfee75125
(ange-ftp-skip-msgs): Include 500 code.for
handling FTP security extensions.

diff -r 70c93cd90fc6 -r 19ae39682b38 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Fri May 12 18:11:37 2000 +0000
+++ b/lisp/net/ange-ftp.el	Fri May 12 18:37:25 2000 +0000
@@ -666,11 +666,17 @@
 ;; mode and hangs. Have it ignore 550- instead. It will then barf
 ;; when it gets the 550 line, as it should.
 
+;; RFC2228 "FTP Security Extensions" defines extensions to the FTP
+;; protocol which involve the client requesting particular
+;; authentication methods (typically) at connection establishment. Non
+;; security-aware FTP servers should respond to this with a 500 code,
+;; which we ignore.
 (defcustom ange-ftp-skip-msgs
   (concat "^200 \\(PORT\\|Port\\) \\|^331 \\|^150 \\|^350 \\|^[0-9]+ bytes \\|"
 	  "^Connected \\|^$\\|^Remote system\\|^Using\\|^ \\|Password:\\|"
 	  "^Data connection \\|"
 	  "^local:\\|^Trying\\|^125 \\|^550-\\|^221 .*oodbye\\|"
+          "^500 .*AUTH \\(KERBEROS\\|GSSAPI\\)\\|^KERBEROS\\|"
 	  "^227 .*[Pp]assive\\|^200 EPRT\\|^500 .*EPRT")
   "*Regular expression matching ftp messages that can be ignored."
   :group 'ange-ftp