From: tomo <tomo>
Date: Thu, 14 Dec 2000 06:36:08 +0000 (+0000)
Subject: (uuencode-external-encode-region): Don't use `as-binary-process'.
X-Git-Tag: flim-1_14_0-pre5~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=35c615b985509a2c92d0d4500a9c1b0d850cbed8;p=elisp%2Fflim.git

(uuencode-external-encode-region): Don't use `as-binary-process'.
(uuencode-external-decode-region): Don't use `as-binary-process' and
`as-binary-input-file'.
(mime-write-decoded-region): Don't use `as-binary-process'.
---

diff --git a/mel-u.el b/mel-u.el
index 49d5733..ead3efb 100644
--- a/mel-u.el
+++ b/mel-u.el
@@ -51,11 +51,12 @@ This function uses external uuencode encoder which is specified by
 variable `uuencode-external-encoder'."
   (interactive "*r")
   (save-excursion
-    (as-binary-process
-     (apply (function call-process-region)
-	    start end (car uuencode-external-encoder)
-	    t t nil
-	    (cdr uuencode-external-encoder)))
+    (let ((coding-system-for-read  'binary)
+	  (coding-system-for-write 'binary))
+      (apply (function call-process-region)
+	     start end (car uuencode-external-encoder)
+	     t t nil
+	     (cdr uuencode-external-encoder)))
     ;; for OS/2
     ;;   regularize line break code
     (goto-char (point-min))
@@ -78,19 +79,20 @@ variable `uuencode-external-decoder'."
 						  (match-end 0)))))))
 	  (default-directory temporary-file-directory))
       (if filename
-	  (as-binary-process
-	   (apply (function call-process-region)
-		  start end (car uuencode-external-decoder)
-		  t nil nil
-		  (cdr uuencode-external-decoder))
-	   (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
-	   ;; but suspect it has something to do with image-mode. -slb
-	   ;;	Use `inhibit-read-only' to avoid to force
-	   ;;	buffer-read-only nil. - tomo.
-	   (let ((inhibit-read-only t))
-	     (delete-file filename)))))))
+	  (let ((coding-system-for-read  'binary)
+		(coding-system-for-write 'binary))
+	    (apply (function call-process-region)
+		   start end (car uuencode-external-decoder)
+		   t nil nil
+		   (cdr uuencode-external-decoder))
+	    (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
+	    ;; but suspect it has something to do with image-mode. -slb
+	    ;;	Use `inhibit-read-only' to avoid to force
+	    ;;	buffer-read-only nil. - tomo.
+	    (let ((inhibit-read-only t))
+	      (delete-file filename)))))))
 
 (mel-define-method-function (mime-encode-region start end (nil "x-uue"))
 			    'uuencode-external-encode-region)
@@ -142,12 +144,13 @@ START and END are buffer positions."
 					      (match-end 0)))))))
 	  (default-directory temporary-file-directory))
       (if file
-	  (as-binary-process
-	   (apply (function call-process-region)
-		  start end (car uuencode-external-decoder)
-		  nil nil nil
-		  (cdr uuencode-external-decoder))
-	   (rename-file file filename 'overwrites))))))
+	  (let ((coding-system-for-read  'binary)
+		(coding-system-for-write 'binary))
+	    (apply (function call-process-region)
+		   start end (car uuencode-external-decoder)
+		   nil nil nil
+		   (cdr uuencode-external-decoder))
+	    (rename-file file filename 'overwrites))))))
 
 
 ;;; @ end