From: yamaoka Date: Fri, 14 Aug 1998 00:44:05 +0000 (+0000) Subject: lisp/gnus-start.el: Bind `coding-system-for-write' by `ctext' (default) while saving... X-Git-Tag: gnus-6_8_12~2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=82c30986b61e031ee0b2786833751cf3f4e203ed;p=elisp%2Fgnus.git- lisp/gnus-start.el: Bind `coding-system-for-write' by `ctext' (default) while saving the quick newsrc file. --- 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))