(ange-ftp-name-format): Allow USER to contain

"@", as required by some ISP hosting service.  Fix defcustom
argument syntax errors that prevented use of customization.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbc051c45734366e0c8e67589d451067e6607c92..7487e4b437676579378333ac16dedc52c55e767f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-12-29  Michael R. Wolf  <MichaelRWolf@att.net>  (tiny change)
+
+       * net/ange-ftp.el (ange-ftp-name-format): Allow USER to contain
+       "@", as required by some ISP hosting service.  Fix defcustom
+       argument syntax errors that prevented use of customization.
+
 2003-12-29  Eli Zaretskii  <eliz@elta.co.il>
 
        * xml.el (xml-get-attribute-or-nil): Doc fix.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index b96e7f1a2984658a2c519378e5dd6c59afb2aaa2..dc3b5a62da94b29e6a8b542beda454fa71bcae6b 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -686,7 +686,7 @@
   :prefix "ange-ftp-")
 
 (defcustom ange-ftp-name-format
-  '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4))
+  '("^/\\(\\([^/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4))
   "*Format of a fully expanded remote file name.
 
 This is a list of the form \(REGEXP HOST USER NAME\),
@@ -694,7 +694,7 @@ where REGEXP is a regular expression matching
 the full remote name, and HOST, USER, and NAME are the numbers of
 parenthesized expressions in REGEXP for the components (in that order)."
   :group 'ange-ftp
-  :type '(list regexp
+  :type '(list (regexp  :tag "Name regexp")
               (integer :tag "Host group")
               (integer :tag "User group")
               (integer :tag "Name group")))