WL-MK (make-wl-news): Fix coding system.

diff --git a/ChangeLog b/ChangeLog
index abce16d..53ec942 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2002-12-20  Kenichi OKADA  <okada@opaopa.org>
 
+       * WL-MK (make-wl-news): Fix coding system.
+
+2002-12-20  Kenichi OKADA  <okada@opaopa.org>
+
        * WL-MK (wl-news-parse-news-subr): Decide
        coding-system.
 

diff --git a/WL-MK b/WL-MK
index 08ff43c..6467e1a 100644 (file)
--- a/WL-MK
+++ b/WL-MK
@@ -484,7 +484,7 @@
            (insert "(defconst wl-news-news-alist\n  '")
            (prin1 (wl-news-parse-news wl-news-lang) (current-buffer))
            (insert ")\n")
-           (let ((buffer-file-coding-system 'x-ctext))
+           (let ((buffer-file-coding-system (mime-charset-to-coding-system 'x-ctext)))
              (write-region (point-min) (point-max) out-filename)))))))
 
 (defun wl-news-parse-news (lang)