(gnus-uu-uustrip-article): Really strip directory

from file name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 184c331..23cf390 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-19  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-uu.el (gnus-uu-uustrip-article): Really strip directory
+       from file name.
+
 2003-10-18  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus-sum.el (gnus-summary-save-parts-last-directory): Default

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 121c2b7..245b5ba 100644 (file)
--- 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.