Mercurial > emacs
changeset 23103:e57c4d201808
(gnus-save-newsrc-file): Bind
coding-system-for-write before saving.
(gnus-check-first-time-used): Change current
buffer before creating help group.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 26 Aug 1998 18:41:35 +0000 |
| parents | ed8e4d645a78 |
| children | b1ce2a4bc9b0 |
| files | lisp/gnus/gnus-start.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))