From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 1 Aug 2001 10:46:23 +0000 (+0000)
Subject: (gnus-startup-file-coding-system): Revert to binary.
X-Git-Tag: emacs-pretest-21.0.105~336
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d2820a4386c319af48bc3d47ae05729285c3b9d;p=emacs.git

(gnus-startup-file-coding-system): Revert to binary.
(gnus-ding-file-coding-system): New variable.
(gnus-read-newsrc-el-file, gnus-save-newsrc-file)
(gnus-slave-save-newsrc): Use it.
---

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 031f02f6a13..d70124879cd 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -393,10 +393,13 @@ Can be used to turn version control on or off."
   :group 'gnus-newsrc
   :type 'boolean)
 
-(defvar gnus-startup-file-coding-system 'emacs-mule
+;;; Internal variables
+
+(defvar gnus-startup-file-coding-system 'binary
   "*Coding system for startup file.")
 
-;;; Internal variables
+(defvar gnus-ding-file-coding-system 'emacs-mule
+  "*Coding system for ding file.")
 
 (defvar gnus-newsrc-file-version nil)
 (defvar gnus-override-subscribe-method nil)
@@ -2021,7 +2024,7 @@ If FORCE is non-nil, the .newsrc file is read."
     (gnus-message 5 "Reading %s..." ding-file)
     (let (gnus-newsrc-assoc)
       (condition-case nil
-	  (let ((coding-system-for-read gnus-startup-file-coding-system))
+	  (let ((coding-system-for-read gnus-ding-file-coding-system))
 	    (load ding-file t t t))
 	(error
 	 (ding)
@@ -2383,7 +2386,7 @@ If FORCE is non-nil, the .newsrc file is read."
 	  (gnus-message 5 "Saving %s.eld..." gnus-current-startup-file)
 	  (gnus-gnus-to-quick-newsrc-format)
 	  (gnus-run-hooks 'gnus-save-quick-newsrc-hook)
-	  (let ((coding-system-for-write gnus-startup-file-coding-system))
+	  (let ((coding-system-for-write gnus-ding-file-coding-system))
 	    (save-buffer))
 	  (kill-buffer (current-buffer))
 	  (gnus-message
@@ -2509,7 +2512,7 @@ If FORCE is non-nil, the .newsrc file is read."
 	   (make-temp-name (concat gnus-current-startup-file "-slave-")))
 	  (modes (ignore-errors
 		   (file-modes (concat gnus-current-startup-file ".eld")))))
-      (let ((coding-system-for-write gnus-startup-file-coding-system))
+      (let ((coding-system-for-write gnus-ding-file-coding-system))
 	(gnus-write-buffer slave-name))
       (when modes
 	(set-file-modes slave-name modes)))))