From: morioka <morioka>
Date: Sun, 17 May 1998 14:17:31 +0000 (+0000)
Subject: (gnus-output-to-mail): Guard as binary.
X-Git-Tag: gnus-6_7-tomo-199811302358~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5d1a64fb1b1af779c970cd233581031a1a3d26a6;p=elisp%2Fgnus.git-

(gnus-output-to-mail): Guard as binary.
---

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 3e9394e..ce79981 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -780,7 +780,8 @@ with potentially long computations."
 	    (let ((file-buffer (create-file-buffer filename)))
 	      (save-excursion
 		(set-buffer file-buffer)
-		(let ((require-final-newline nil))
+		(let ((require-final-newline nil)
+		      (coding-system-for-write 'binary))
 		  (gnus-write-buffer filename)))
 	      (kill-buffer file-buffer))
 	  (error "Output file does not exist")))
@@ -798,7 +799,8 @@ with potentially long computations."
       ;; Decide whether to append to a file or to an Emacs buffer.
       (let ((outbuf (get-file-buffer filename)))
 	(if (not outbuf)
-	    (let ((buffer-read-only nil))
+	    (let ((buffer-read-only nil)
+		  (coding-system-for-write 'binary))
 	      (save-excursion
 		(goto-char (point-max))
 		(forward-char -2)