From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Fri, 7 Sep 2007 02:52:27 +0000 (+0000)
Subject: (gnus-gnus-to-newsrc-format): Use a unibyte buffer and raw-text coding system
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=380c23c8a35e645c438c5216396bf4b762378fe2;hp=ff54e5edd5a773168217b87e2ddf31a49092e7aa;p=gnus

(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.
---

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  <yamaoka@jpl.org>
+
+	* 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  <yamaoka@jpl.org>
 
 	* 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)))))