From 84e7e9264d371608b76ede373ecf2890a2ea3042 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 24 May 2000 10:50:42 +0000 Subject: [PATCH] Sync with Gnus. --- lisp/ChangeLog | 4 ++++ lisp/mml.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + + * mml.el (mml-parse-file-name): Fix ange-ftp part. + 2000-05-22 Didier Verna * 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)) -- 1.7.10.4