* mm-decode.el (mm-display-external): Use

	mm-file-name-rewrite-functions.  From <andre@slamdunknetworks.com>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e63c847..3f556ad 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-22  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-decode.el (mm-display-external): Use
+       mm-file-name-rewrite-functions.  From <andre@slamdunknetworks.com>
+
 2002-02-22  Paul Jarc  <prj@po.cwru.edu>
 
        * nnmaildir.el (nnmaildir-request-list): Report the highest

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index e7971ac..be353e8 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -679,8 +679,10 @@ external if displayed external."
          (make-directory dir)
          (set-file-modes dir 448)
          (if filename
-             (setq file (expand-file-name (file-name-nondirectory filename)
-                                          dir))
+             (setq file (expand-file-name 
+                         (gnus-map-function mm-file-name-rewrite-functions
+                                             (file-name-nondirectory filename))
+                         dir))
            (setq file (make-temp-name (expand-file-name "mm." dir))))
          (let ((coding-system-for-write mm-binary-coding-system))
            (write-region (point-min) (point-max) file nil 'nomesg))