From e20feddde1384125bb97e882d6ebd7f37a108d31 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 16:30:41 +0000 Subject: [PATCH] (uuencode-external-decode-region): fixed. --- mel-u.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4