From 2d2820a4386c319af48bc3d47ae05729285c3b9d Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 1 Aug 2001 10:46:23 +0000 Subject: [PATCH] (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. --- lisp/gnus/gnus-start.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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))))) -- 2.39.2