From: morioka <morioka>
Date: Wed, 11 Mar 1998 16:30:41 +0000 (+0000)
Subject: (uuencode-external-decode-region): fixed.
X-Git-Tag: mel-7_2~6
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=e20feddde1384125bb97e882d6ebd7f37a108d31;ds=sidebyside

(uuencode-external-decode-region): fixed.
---

diff --git a/mel-u.el b/mel-u.el
index a2efb09..0c49f62 100644
--- a/mel-u.el
+++ b/mel-u.el
@@ -75,13 +75,13 @@ variable `uuencode-external-decoder'."
 			    (if (looking-at ".+$")
 				(buffer-substring (match-beginning 0)
 						  (match-end 0))
-			      ))))))
+			      )))))
+	  (default-directory (or (getenv "TMP")(getenv "TEMP") "/tmp")))
       (if filename
 	  (as-binary-process
 	   (apply (function call-process-region)
 		  start end (car uuencode-external-decoder)
 		  t nil nil (cdr uuencode-external-decoder))
-	   (setq filename (expand-file-name filename mime-temp-directory))
 	   (as-binary-input-file (insert-file-contents filename))
 	   ;; The previous line causes the buffer to be made read-only, I
 	   ;; do not pretend to understand the control flow leading to this