From ced91c6b3c2b1a91f9e310f091a88d9fd8850f39 Mon Sep 17 00:00:00 2001 From: Jesper Harder Date: Sat, 18 Oct 2003 23:24:52 +0000 Subject: [PATCH] (gnus-uu-uustrip-article): Really strip directory from file name. --- lisp/ChangeLog | 5 +++++ lisp/gnus-uu.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 184c33182..23cf39062 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-10-19 Jesper Harder + + * gnus-uu.el (gnus-uu-uustrip-article): Really strip directory + from file name. + 2003-10-18 Jesper Harder * gnus-sum.el (gnus-summary-save-parts-last-directory): Default diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index 121c2b71c..245b5bae0 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -1438,9 +1438,9 @@ When called interactively, prompt for REGEXP." ;; This is the beginning of a uuencoded article. ;; We replace certain characters that could make things messy. (setq gnus-uu-file-name - (let ((nnheader-file-name-translation-alist - '((?/ . ?,) (? . ?_) (?* . ?_) (?$ . ?_)))) - (nnheader-translate-file-chars (match-string 1)))) + (gnus-map-function + mm-file-name-rewrite-functions + (file-name-nondirectory (match-string 1)))) (replace-match (concat "begin 644 " gnus-uu-file-name) t t) ;; Remove any non gnus-uu-body-line right after start. -- 2.34.1