From: Jesper Harder <harder@ifa.au.dk>
Date: Sat, 18 Oct 2003 20:00:08 +0000 (+0000)
Subject: (gnus-summary-save-parts-last-directory): Default
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=1d89b8f23428f3ee246a7ed8cd2145f05cd0aedf;p=gnus

(gnus-summary-save-parts-last-directory): Default
to mm-default-directory.
(gnus-summary-save-parts-1): Use mm-file-name-rewrite-functions.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18cdb76ed..184c33182 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-10-18  Jesper Harder  <harder@ifa.au.dk>
+
+	* gnus-sum.el (gnus-summary-save-parts-last-directory): Default
+	to mm-default-directory.
+	(gnus-summary-save-parts-1): Use mm-file-name-rewrite-functions.
+
 2003-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* pop3.el (pop3-read-response): Check whether the process is
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index cb610e485..f3f9a1bf7 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1118,7 +1118,7 @@ the normal Gnus MIME machinery."
   "Function called to sort the articles within a thread after it has been gathered together.")
 
 (defvar gnus-summary-save-parts-type-history nil)
-(defvar gnus-summary-save-parts-last-directory nil)
+(defvar gnus-summary-save-parts-last-directory mm-default-directory)
 
 ;; Avoid highlighting in kill files.
 (defvar gnus-summary-inhibit-highlight nil)
@@ -10991,13 +10991,15 @@ If REVERSE, save parts that do not match TYPE."
 	      (not (string-match type (mm-handle-media-type handle)))
 	    (string-match type (mm-handle-media-type handle)))
       (let ((file (expand-file-name
-		   (file-name-nondirectory
-		    (or
-		     (mail-content-type-get
-		      (mm-handle-disposition handle) 'filename)
-		     (concat gnus-newsgroup-name
-			     "." (number-to-string
-				  (cdr gnus-article-current)))))
+		   (gnus-map-function
+		    mm-file-name-rewrite-functions
+		    (file-name-nondirectory
+		     (or
+		      (mail-content-type-get
+		       (mm-handle-disposition handle) 'filename)
+		      (concat gnus-newsgroup-name
+			      "." (number-to-string
+				   (cdr gnus-article-current))))))
 		   dir)))
 	(unless (file-exists-p file)
 	  (mm-save-part-to-file handle file))))))