From: morioka <morioka>
Date: Sat, 24 Oct 1998 13:32:56 +0000 (+0000)
Subject: Use `temporary-file-directory' instead of `mime-temp-directory'.
X-Git-Tag: semi-1_10_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e80bb83b83cff123dcc3da55d9102e47e0fa40cf;p=elisp%2Fsemi.git

Use `temporary-file-directory' instead of `mime-temp-directory'.
---

diff --git a/mime-edit.el b/mime-edit.el
index 2187b32..709c093 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2413,7 +2413,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
   (let* ((mime-edit-draft-file-name
 	  (or (buffer-file-name)
 	      (make-temp-name
-	       (expand-file-name "mime-draft" mime-temp-directory))))
+	       (expand-file-name "mime-draft" temporary-file-directory))))
 	 (separator mail-header-separator)
 	 (id (concat "\""
 		     (replace-space-with-underline (current-time-string))
diff --git a/mime-image.el b/mime-image.el
index 1e20ac0..d5e4aa0 100644
--- a/mime-image.el
+++ b/mime-image.el
@@ -146,7 +146,7 @@
 	  ((eq (aref gl 0) 'xbm)
 	   (let ((xbm-file
 		  (make-temp-name
-		   (expand-file-name "tm" mime-temp-directory))))
+		   (expand-file-name "tm" temporary-file-directory))))
 	     (with-temp-buffer
 	       (insert (aref gl 2))
 	       (write-region (point-min)(point-max) xbm-file)
diff --git a/mime-partial.el b/mime-partial.el
index f5378eb..e085eab 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -39,7 +39,8 @@ partial messages using mime-view."
 	 (subject-buf (eval (cdr (assq 'summary-buffer-exp situation))))
 	 subject-id
 	 (root-dir (expand-file-name
-		    (concat "m-prts-" (user-login-name)) mime-temp-directory))
+		    (concat "m-prts-" (user-login-name))
+		    temporary-file-directory))
 	 (request-partial-message-method
 	  (cdr (assq 'request-partial-message-method situation)))
 	 full-file)
diff --git a/mime-pgp.el b/mime-pgp.el
index 67fbb6e..0facca0 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -166,7 +166,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 		   (1- knum)
 		 (1+ knum)))
 	 (orig-entity (nth onum (mime-entity-children mother)))
-	 (basename (expand-file-name "tm" mime-temp-directory))
+	 (basename (expand-file-name "tm" temporary-file-directory))
 	 (orig-file (make-temp-name basename))
 	 (sig-file (concat orig-file ".sig"))
 	 )
diff --git a/mime-play.el b/mime-play.el
index 4772f9a..11f904b 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -324,9 +324,9 @@ specified, play as it.  Default MODE is \"play\"."
 	      (name (mime-entity-safe-filename entity)))
 	  (setq name
 		(if (and name (not (string= name "")))
-		    (expand-file-name name mime-temp-directory)
+		    (expand-file-name name temporary-file-directory)
 		  (make-temp-name
-		   (expand-file-name "EMI" mime-temp-directory))
+		   (expand-file-name "EMI" temporary-file-directory))
 		  ))
           (mime-write-entity-content entity name)
 	  (message "External method is starting...")
@@ -543,7 +543,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
   (goto-char (mime-entity-point-min entity))
   (let* ((root-dir
 	  (expand-file-name
-	   (concat "m-prts-" (user-login-name)) mime-temp-directory))
+	   (concat "m-prts-" (user-login-name)) temporary-file-directory))
 	 (id (cdr (assoc "id" cal)))
 	 (number (cdr (assoc "number" cal)))
 	 (total (cdr (assoc "total" cal)))