From 5d1a64fb1b1af779c970cd233581031a1a3d26a6 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 17 May 1998 14:17:31 +0000 Subject: [PATCH] (gnus-output-to-mail): Guard as binary. --- lisp/gnus-util.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 1.7.10.4