From: morioka <morioka>
Date: Tue, 4 Mar 1997 13:09:40 +0000 (+0000)
Subject: Variable `mime/tmp-dir' was renamed to `mime-temp-directory'.
X-Git-Tag: Hokutetsu-Ishikawa-new~186
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=80d0ec290ce71dc056aa14e962ac186f1388fbad;p=elisp%2Fsemi.git

Variable `mime/tmp-dir' was renamed to `mime-temp-directory'.
---

diff --git a/mime-image.el b/mime-image.el
index 8b7e863..012476d 100644
--- a/mime-image.el
+++ b/mime-image.el
@@ -9,7 +9,7 @@
 ;; Created: 1995/12/15
 ;;	Renamed: 1997/2/21 from tm-image.el
 ;; Version:
-;;	$Id: mime-image.el,v 0.2 1997-02-28 02:22:03 tmorioka Exp $
+;;	$Id: mime-image.el,v 0.3 1997-03-04 13:05:34 morioka Exp $
 
 ;; Keywords: image, picture, X-Face, MIME, multimedia, mail, news
 
@@ -163,7 +163,8 @@
 	     )
 	    ((eq (aref gl 0) 'xbm)
 	     (let ((xbm-file
-		    (make-temp-name (expand-file-name "tm" mime/tmp-dir))))
+		    (make-temp-name
+		     (expand-file-name "tm" mime-temp-directory))))
 	       (insert (aref gl 2))
 	       (write-region (point-min)(point-max) xbm-file)
 	       (message "Decoding image...")
@@ -192,7 +193,8 @@
   (let* ((mode mime::preview/original-major-mode)
 	 (m (assq mode mime-view-code-converter-alist))
 	 (beg (point-min)) (end (point-max))
-	 (file-base (make-temp-name (expand-file-name "tm" mime/tmp-dir)))
+	 (file-base
+	  (make-temp-name (expand-file-name "tm" mime-temp-directory)))
 	 (ps-file (concat file-base ".ps"))
 	 (gif-file (concat file-base ".gif"))
 	 )
diff --git a/mime-play.el b/mime-play.el
index 698b2bb..f82fbe1 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;	Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.10 1997-02-28 05:14:54 tmorioka Exp $
+;; Version: $Id: mime-play.el,v 0.11 1997-03-04 13:09:40 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -115,7 +115,7 @@
 	    )
 	(if method
 	    (let ((file (make-temp-name
-			 (expand-file-name "TM" mime/tmp-dir)))
+			 (expand-file-name "TM" mime-temp-directory)))
 		  b args)
 	      (if (nth 1 method)
 		  (setq b beg)
@@ -281,8 +281,9 @@
 
 (defun mime-article/decode-message/partial (beg end cal)
   (goto-char beg)
-  (let* ((root-dir (expand-file-name
-		    (concat "m-prts-" (user-login-name)) mime/tmp-dir))
+  (let* ((root-dir
+	  (expand-file-name
+	   (concat "m-prts-" (user-login-name)) mime-temp-directory))
 	 (id (cdr (assoc "id" cal)))
 	 (number (cdr (assoc "number" cal)))
 	 (total (cdr (assoc "total" cal)))