From: Karl Heuer Date: Wed, 26 Aug 1998 18:41:35 +0000 (+0000) Subject: (gnus-save-newsrc-file): Bind X-Git-Tag: emacs-20.4~1846 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6e0f29810f7775b7273e7bcb6682755a54c1976;p=emacs.git (gnus-save-newsrc-file): Bind coding-system-for-write before saving. (gnus-check-first-time-used): Change current buffer before creating help group. --- 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))