From 82c30986b61e031ee0b2786833751cf3f4e203ed Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 14 Aug 1998 00:44:05 +0000 Subject: [PATCH] lisp/gnus-start.el: Bind `coding-system-for-write' by `ctext' (default) while saving the quick newsrc file. --- ChangeLog | 9 +++++++++ lisp/gnus-start.el | 5 +++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index b6690a0..6a8ef2d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +1998-08-14 Katsumi Yamaoka + + * lisp/gnus-start.el (gnus-save-newsrc-file): Bind + `coding-system-for-write' by `gnus-startup-file-coding-system' + while saving the quick newsrc file. + + * lisp/gnus-start.el (gnus-startup-file-coding-system): Change + default value to `ctext'. + 1998-08-13 Tatsuya Ichikawa * lisp/gnus.el (gnus-version-number): Fix typo. diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index a95d696..0695619 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -388,7 +388,7 @@ Can be used to turn version control on or off." :group 'gnus-newsrc :type 'boolean) -(defvar gnus-startup-file-coding-system 'binary +(defvar gnus-startup-file-coding-system 'ctext "*Coding system for startup file.") ;;; Internal variables @@ -2277,7 +2277,8 @@ 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) - (save-buffer) + (let ((coding-system-for-write gnus-startup-file-coding-system)) + (save-buffer)) (kill-buffer (current-buffer)) (gnus-message 5 "Saving %s.eld...done" gnus-current-startup-file)) -- 1.7.10.4