X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mel-u.el;h=ead3efbc7fe102ec540d0b87c631331e124485db;hb=e3d58bf999f74388a7987f26dd405fb3bed91fcb;hp=94ede0649819aad175514c57de483e540c31fcfb;hpb=e8b4d182275a38437111e94a864f568dece6ef28;p=elisp%2Fflim.git

diff --git a/mel-u.el b/mel-u.el
index 94ede06..ead3efb 100644
--- a/mel-u.el
+++ b/mel-u.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
 
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
 ;; Created: 1995/10/25
 ;; Keywords: uuencode
 
@@ -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