X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-archive.el;h=6625a7fd84f5d48a29d61236ff077b6a01841722;hb=9e39553b80115a949a7f04ddced4459a7797f8bd;hp=30cae3523d6c3e8fde25ec1bc9019dd57fe61396;hpb=fd44e582ccc0cb3d87ac3ddfe83f49203326c534;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index 30cae35..6625a7f 100644
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -116,7 +116,7 @@
 			     (symbol-name
 			      (elmo-archive-folder-archive-type-internal
 			       folder)))
-		     elmo-msgdb-dir)))
+		     elmo-msgdb-directory)))
 
 ;;; MMDF parser -- info-zip agent w/ REXX
 (defvar elmo-mmdf-delimiter "^\01\01\01\01$"
@@ -652,8 +652,8 @@ TYPE specifies the archiver's symbol."
 (defun elmo-archive-folder-message-make-temp-files (folder
 						    numbers
 						    start-number)
-  (let* ((tmp-dir-src (elmo-folder-make-temp-dir folder))
-	 (tmp-dir-dst (elmo-folder-make-temp-dir folder))
+  (let* ((tmp-dir-src (elmo-folder-make-temporary-directory folder))
+	 (tmp-dir-dst (elmo-folder-make-temporary-directory folder))
 	 (arc     (elmo-archive-get-archive-name folder))
 	 (type    (elmo-archive-folder-archive-type-internal folder))
 	 (prefix  (elmo-archive-folder-archive-prefix-internal folder))