(mml-parse-file-name): Fix ange-ftp part.

diff --git a/lisp/mml.el b/lisp/mml.el
index b035bc5..707ce3c 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -512,8 +512,8 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
 (defun mml-parse-file-name (path)
   (if (if (boundp 'efs-path-regexp)
          (string-match efs-path-regexp path)
-       (if (boundp 'ange-ftp-path-format)
-           (string-match (car ange-ftp-path-format))))
+       (if (boundp 'ange-ftp-name-format)
+           (string-match (car ange-ftp-name-format) path)))
       (list (match-string 1 path) (match-string 2 path)
            (substring path (1+ (match-end 2))))
     path))