[mew-dist 23619] Re: TMPDIR

[Tatsuya Kinoshita]

On February 1, 2003, [mew-dist 23022],
Tatsuya Kinoshita <tats at example.com> wrote:

> 環境変数TMPDIRも見るようにしてみました。

一時ファイル用ディレクトリについて、Gnusを参考に、最近のEmacsenに
備わっている関数や変数を参照するよう変更してみました。(thanks
yamaokaさん, shuheiさん)

パッチではとりあえずgetenvを残してありますが、Mew 2以降でサポート
対象になっているEmacsenなら、temp-directoryか
temporary-file-directoryのどちらかはあるはずなので、その中で環境
変数も調べられることになります。

-- tats

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

--- mew-vars.el	2003/05/08 09:52:45	1.188
+++ mew-vars.el	2003/05/08 14:51:29
@@ -2205,10 +2205,14 @@
 ;;;
 
 (defcustom mew-temp-file-initial
-  (expand-file-name (user-login-name) (or (getenv "TMPDIR")
-					  (getenv "TEMP")
-					  (getenv "TMP")
-					  "/tmp"))
+  (expand-file-name (user-login-name) (if (fboundp 'temp-directory)
+					  (temp-directory)
+					(if (boundp 'temporary-file-directory)
+					    temporary-file-directory
+					  (or (getenv "TMPDIR")
+					      (getenv "TEMP")
+					      (getenv "TMP")
+					      "/tmp"))))
   "*Hint to make a secure directory on the local file system. On
 setup phase Mew make a secure directory from this variable and set
 mew-temp-file a file name prefix contained the directory name. The