From: yamaoka <yamaoka>
Date: Wed, 24 May 2000 10:50:42 +0000 (+0000)
Subject: Sync with Gnus.
X-Git-Tag: t-gnus-6_14-quimby-before-AC-changed-~49
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=84e7e9264d371608b76ede373ecf2890a2ea3042;p=elisp%2Fgnus.git-

Sync with Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d4df69..24d50c3 100644
--- 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
--- 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))