* mel-ccl.el (mel-ccl-encode-q-generic): New compile-time

[elisp/flim.git] / mel-u.el

diff --git a/mel-u.el b/mel-u.el
index 46e9efa..d4a50ea 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)

@@ -94,14 +93,11 @@ variable `uuencode-external-decoder'."
           ))
       )))
 
           ))
       )))
 

-(defalias 'uuencode-encode-region 'uuencode-external-encode-region)
-(defalias 'uuencode-decode-region 'uuencode-external-decode-region)
-

 
 ;;; @ uuencode encoder/decoder for file
 ;;;
 
 
 ;;; @ uuencode encoder/decoder for file
 ;;;
 

-(defun uuencode-insert-encoded-file (filename)
+(defun uuencode-external-insert-encoded-file (filename)

   "Insert file encoded by unofficial uuencode format.
 This function uses external uuencode encoder which is specified by
 variable `uuencode-external-encoder'."
   "Insert file encoded by unofficial uuencode format.
 This function uses external uuencode encoder which is specified by
 variable `uuencode-external-encoder'."

@@ -110,7 +106,7 @@ variable `uuencode-external-encoder'."
                (file-name-nondirectory filename))
   )
 
                (file-name-nondirectory filename))
   )
 

-(defun uuencode-write-decoded-region (start end filename)
+(defun uuencode-external-write-decoded-region (start end filename)

   "Decode and write current region encoded by uuencode into FILENAME.
 START and END are buffer positions."
   (interactive
   "Decode and write current region encoded by uuencode into FILENAME.
 START and END are buffer positions."
   (interactive

@@ -126,7 +122,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)