X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-mime.el;h=3dcfed617399a0999fb7fd67f5823c08871cf9d0;hb=9e39553b80115a949a7f04ddced4459a7797f8bd;hp=ab69ce2baa841c58750db6bc2aa504462635e8c0;hpb=fd44e582ccc0cb3d87ac3ddfe83f49203326c534;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index ab69ce2..3dcfed6 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -203,22 +203,22 @@ By setting following-method as yank-content."
     (wl-summary-sync-update)))
 
 ;; internal variable.
-(defvar wl-mime-save-dir nil "Last saved directory.")
+(defvar wl-mime-save-directory nil "Last saved directory.")
 ;;; Yet another save method.
 (defun wl-mime-save-content (entity situation)
   (let ((filename (read-file-name "Save to file: "
 				  (expand-file-name
 				   (or (mime-entity-safe-filename entity)
 				       ".")
-				   (or wl-mime-save-dir
-				       wl-tmp-dir)))))
+				   (or wl-mime-save-directory
+				       wl-temporary-file-directory)))))
     (while (file-directory-p filename)
       (setq filename (read-file-name "Please set filename (not directory): "
 				     filename)))
     (if (file-exists-p filename)
 	(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
 	    (error "Not saved")))
-    (setq wl-mime-save-dir (file-name-directory filename))
+    (setq wl-mime-save-directory (file-name-directory filename))
     (mime-write-entity-content entity filename)))
 
 ;;; Yet another combine method.