Sync with Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d4df69..24d50c3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-24  Dave Love  <fx@gnu.org>
+
+       * mml.el (mml-parse-file-name): Fix ange-ftp part.
+
 2000-05-22  Didier Verna  <didier@lrde.epita.fr>
 
        * gnus.el (gnus-redefine-select-method-widget): new function, call

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