Mercurial > emacs

comparison lisp/net/ange-ftp.el @ 102443:07f9480f83e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-multi-msgs): Add 150-.
author Andreas Schwab <schwab@linux-m68k.org>
date Sun, 08 Mar 2009 16:45:31 +0000
parents d79785ea1088
children 55824e6d083c
comparison
equal deleted inserted replaced
102442:e04bc13e74c7 102443:07f9480f83e6
700 ;; ange-ftp-multi-skip-msgs should only match ###-, where ### is one of 700 ;; ange-ftp-multi-skip-msgs should only match ###-, where ### is one of
701 ;; the number codes corresponding to ange-ftp-good-msgs or ange-ftp-fatal-msgs. 701 ;; the number codes corresponding to ange-ftp-good-msgs or ange-ftp-fatal-msgs.
702 ;; Otherwise, ange-ftp will go into multi-skip mode, and never come out. 702 ;; Otherwise, ange-ftp will go into multi-skip mode, and never come out.
703 703
704 (defvar ange-ftp-multi-msgs 704 (defvar ange-ftp-multi-msgs
705 "^220-\\|^230-\\|^226\\|^25.-\\|^221-\\|^200-\\|^331-\\|^4[25]1-\\|^530-" 705 "^150-\\|^220-\\|^230-\\|^226\\|^25.-\\|^221-\\|^200-\\|^331-\\|^4[25]1-\\|^530-"
706 "*Regular expression matching the start of a multiline FTP reply.") 706 "*Regular expression matching the start of a multiline FTP reply.")
707 707
708 (defvar ange-ftp-good-msgs 708 (defvar ange-ftp-good-msgs
709 "^220 \\|^230 \\|^226 \\|^25. \\|^221 \\|^200 \\|^[Hh]ash mark" 709 "^220 \\|^230 \\|^226 \\|^25. \\|^221 \\|^200 \\|^[Hh]ash mark"
710 "*Regular expression matching FTP \"success\" messages.") 710 "*Regular expression matching FTP \"success\" messages.")