diff options
| author | Richard M. Stallman | 1999-08-28 18:25:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-08-28 18:25:16 +0000 |
| commit | 30722cbff56e0c8da66453063f6d44cd88093e82 (patch) | |
| tree | f9192bed740db4ce7d47e01eddfe2e22445b5e5d | |
| parent | 46595270d80b54e0aee0c282e8b88f12b7d7151b (diff) | |
| download | emacs-30722cbff56e0c8da66453063f6d44cd88093e82.tar.gz emacs-30722cbff56e0c8da66453063f6d44cd88093e82.zip | |
(metamail-region): Use temporary-file-directory.
| -rw-r--r-- | lisp/mail/metamail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el index 954e1c24d9b..73f1557be36 100644 --- a/lisp/mail/metamail.el +++ b/lisp/mail/metamail.el | |||
| @@ -3,7 +3,7 @@ | |||
| 3 | ;; Copyright (C) 1993, 1996 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 1996 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> | 5 | ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> |
| 6 | ;; Version: $Id: metamail.el,v 1.10 1998/06/10 19:10:55 fx Exp fx $ | 6 | ;; Version: $Id: metamail.el,v 1.11 1999/01/11 12:36:15 fx Exp rms $ |
| 7 | ;; Keywords: mail, news, mime, multimedia | 7 | ;; Keywords: mail, news, mime, multimedia |
| 8 | 8 | ||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| @@ -165,7 +165,7 @@ redisplayed as output is inserted." | |||
| 165 | (interactive "r\np") | 165 | (interactive "r\np") |
| 166 | (let ((curbuf (current-buffer)) | 166 | (let ((curbuf (current-buffer)) |
| 167 | (buffer-read-only nil) | 167 | (buffer-read-only nil) |
| 168 | (metafile (make-temp-name "/tmp/metamail")) | 168 | (metafile (make-temp-name (expand-file-name "metamail" temporary-file-directory))) |
| 169 | (option-environment | 169 | (option-environment |
| 170 | (list (format "EMACS_VIEW_MODE=%d" | 170 | (list (format "EMACS_VIEW_MODE=%d" |
| 171 | (if (numberp viewmode) viewmode 1))))) | 171 | (if (numberp viewmode) viewmode 1))))) |