projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* DOODLE-TIPS: New file.
[elisp/flim.git]
/
mel-u.el
diff --git
a/mel-u.el
b/mel-u.el
index
46e9efa
..
d004d60
100644
(file)
--- a/
mel-u.el
+++ b/
mel-u.el
@@
-35,8
+35,7
@@
(defvar uuencode-external-encoder '("uuencode" "-")
"*list of uuencode encoder program name and its arguments.")
(defvar uuencode-external-encoder '("uuencode" "-")
"*list of uuencode encoder program name and its arguments.")
-(defvar uuencode-external-decoder
- (list "sh" "-c" (format "(cd %s; uudecode)" mime-temp-directory))
+(defvar uuencode-external-decoder '("sh" "-c" "uudecode")
"*list of uuencode decoder program name and its arguments.")
"*list of uuencode decoder program name and its arguments.")
@@
-76,7
+75,7
@@
variable `uuencode-external-decoder'."
(buffer-substring (match-beginning 0)
(match-end 0))
)))))
(buffer-substring (match-beginning 0)
(match-end 0))
)))))
- (default-directory (or (getenv "TMP")(getenv "TEMP") "/tmp")))
+ (default-directory mime-temp-directory))
(if filename
(as-binary-process
(apply (function call-process-region)
(if filename
(as-binary-process
(apply (function call-process-region)
@@
-126,7
+125,7
@@
START and END are buffer positions."
(buffer-substring (match-beginning 0)
(match-end 0))
)))))
(buffer-substring (match-beginning 0)
(match-end 0))
)))))
- (default-directory (or (getenv "TMP")(getenv "TEMP") "/tmp")))
+ (default-directory mime-temp-directory))
(if file
(as-binary-process
(apply (function call-process-region)
(if file
(as-binary-process
(apply (function call-process-region)