From d6e0f29810f7775b7273e7bcb6682755a54c1976 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 26 Aug 1998 18:41:35 +0000 Subject: [PATCH] (gnus-save-newsrc-file): Bind coding-system-for-write before saving. (gnus-check-first-time-used): Change current buffer before creating help group. --- lisp/gnus/gnus-start.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 29a1b80e3a7..f2f41ad9bbd 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -1084,7 +1084,9 @@ for new groups." (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 @@ 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) (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)) -- 2.39.2