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

diff --git a/mime-edit.el b/mime-edit.el
index 2187b32..709c093 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)))