# HG changeset patch # User Karl Heuer # Date 904156895 0 # Node ID e57c4d20180818f0ac229c49cf438871815a79c9 # Parent ed8e4d645a78f1e1515150851ee9dc77383e4ba7 (gnus-save-newsrc-file): Bind coding-system-for-write before saving. (gnus-check-first-time-used): Change current buffer before creating help group. diff -r ed8e4d645a78 -r e57c4d201808 lisp/gnus/gnus-start.el --- a/lisp/gnus/gnus-start.el Wed Aug 26 18:13:55 1998 +0000 +++ b/lisp/gnus/gnus-start.el Wed Aug 26 18:41:35 1998 +0000 @@ -1084,7 +1084,9 @@ (gnus-group-change-level (car groups) gnus-level-default-subscribed gnus-level-killed)) (setq groups (cdr groups))) - (gnus-group-make-help-group) + (save-excursion + (set-buffer gnus-group-buffer) + (gnus-group-make-help-group)) (when gnus-novice-user (gnus-message 7 "`A k' to list killed groups")))))) @@ -2208,7 +2210,8 @@ (gnus-message 5 "Saving %s.eld..." gnus-current-startup-file) (gnus-gnus-to-quick-newsrc-format) (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))