X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbase64.el;h=6c0b7c0c17cb959f595d8b00885ca7407a1c1a19;hb=73edf76920c3d86afa1628ca8f1509394cb7b26c;hp=6766e6f0fac167cc1377dee89dc82524e4bd6183;hpb=b8b80f5e0d65bb647ba87b4afa8eb74128139f7a;p=elisp%2Fgnus.git-

diff --git a/lisp/base64.el b/lisp/base64.el
index 6766e6f..6c0b7c0 100644
--- a/lisp/base64.el
+++ b/lisp/base64.el
@@ -73,9 +73,13 @@ base64-encoder-program.")
       (setq p (cdr p)))
     v))
 
+(defvar base64-binary-coding-system 'binary)
+
 (defun base64-run-command-on-region (start end output-buffer command
 					   &rest arg-list)
-  (let ((tempfile nil) status errstring default-process-coding-system)
+  (let ((tempfile nil) status errstring default-process-coding-system 
+	(coding-system-for-write base64-binary-coding-system)
+	(coding-system-for-read base64-binary-coding-system))
     (unwind-protect
 	(progn
 	  (setq tempfile (make-temp-name "base64"))
@@ -103,7 +107,8 @@ base64-encoder-program.")
     (if (or (null buffer) (eq buffer (current-buffer)))
 	(insert-char char count)
       (with-current-buffer buffer
-	(insert-char char count)))))
+	(insert-char char count))))
+  (setq base64-binary-coding-system 'no-conversion))
 
 (defun base64-decode-region (start end)
   (interactive "r")
@@ -266,5 +271,6 @@ base64-encoder-program.")
       (kill-buffer (current-buffer)))))
 
 (fset 'base64-decode-string 'base64-decode)
+(fset 'base64-encode-string 'base64-encode)
 
 (provide 'base64)