From: morioka <morioka>
Date: Sun, 17 May 1998 14:23:05 +0000 (+0000)
Subject: (gnus-output-to-rmail): Guard as binary.
X-Git-Tag: gnus-6_7-tomo-199811302358~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=067db9ed229f824af51bde0dc987e0f1672600a1;p=elisp%2Fgnus.git-

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

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index ce79981..c6314e7 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1,8 +1,8 @@
-;;; gnus-util.el --- utility functions for Gnus
+;;; gnus-util.el --- utility functions for Semi-gnus
 ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
-;; Keywords: news
+;; Keywords: mail, news, MIME
 
 ;; This file is part of GNU Emacs.
 
@@ -721,7 +721,8 @@ with potentially long computations."
   (setq filename (expand-file-name filename))
   (setq rmail-default-rmail-file filename)
   (let ((artbuf (current-buffer))
-	(tmpbuf (get-buffer-create " *Gnus-output*")))
+	(tmpbuf (get-buffer-create " *Gnus-output*"))
+	(coding-system-for-write 'binary))
     (save-excursion
       (or (get-file-buffer filename)
 	  (file-exists-p filename)