From 380c23c8a35e645c438c5216396bf4b762378fe2 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 7 Sep 2007 02:52:27 +0000 Subject: [PATCH] (gnus-gnus-to-newsrc-format): Use a unibyte buffer and raw-text coding system when saving .newsrc file, which may contain non-ASCII group names. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-start.el | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 36b5406ed..70bd92322 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-09-06 Katsumi Yamaoka + + * gnus-start.el (gnus-gnus-to-newsrc-format): Use a unibyte buffer and + raw-text coding system when saving .newsrc file, which may contain + non-ASCII group names. + 2007-09-05 Katsumi Yamaoka * gnus-cus.el (gnus-score-extra): New widget. diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 19926cca8..0d3ba97e4 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -2900,6 +2900,10 @@ If FORCE is non-nil, the .newsrc file is read." (setq default-directory (file-name-directory buffer-file-name)) (buffer-disable-undo) (erase-buffer) + ;; Use a unibyte buffer since group names are unibyte strings; + ;; in particular, non-ASCII group names are the ones encoded by + ;; a certain coding system. + (mm-disable-multibyte) ;; Write options. (when gnus-newsrc-options (insert gnus-newsrc-options)) @@ -2942,7 +2946,8 @@ If FORCE is non-nil, the .newsrc file is read." (delete-file gnus-startup-file) (clear-visited-file-modtime)) (gnus-run-hooks 'gnus-save-standard-newsrc-hook) - (save-buffer) + (let ((coding-system-for-write 'raw-text)) + (save-buffer)) (kill-buffer (current-buffer))))) -- 2.25.1