* WL-MK (wl-news-parse-news-subr): Decide

coding-system.

* wl-news.el.in (wl-news-send-news): Delete
Organization and X-Face.

diff --git a/ChangeLog b/ChangeLog
index 305c470..abce16d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2002-12-20  Kenichi OKADA  <okada@opaopa.org>
 
+       * WL-MK (wl-news-parse-news-subr): Decide
+       coding-system.
+
+2002-12-20  Kenichi OKADA  <okada@opaopa.org>
+
        * WL-MK (wl-news-lang): New variable.
        (wl-news-news-file): Merge `wl-news-news-file'
        and `wl-news-news-file-ja'.

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f4647f4..4cf51dc 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2002-12-20  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-news.el.in (wl-news-send-news): Delete
+       Organization and X-Face.
+
+2002-12-20  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-news.el.in (wl-news-check): Fix for `wl-news-lang'.
        (wl-news-append-news): New function.
        (wl-news-send-news): New function.

diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index 80f459d..0a2e8d0 100644 (file)
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -113,11 +113,7 @@
           (list (cons 'From "WL Release 'Bot <wl@lists.airs.net>")
                 (cons 'To (wl-draft-eword-encode-address-list wl-from) )
                 (cons 'Subject "Wanderlust NEWS")
-                (cons 'User-Agent wl-generate-mailer-string-function)
-                (cons 'Organization wl-organization)
-                (and wl-auto-insert-x-face
-                     (file-exists-p wl-x-face-file)
-                     'wl-draft-insert-x-face-field-here)))
+                (cons 'User-Agent wl-generate-mailer-string-function)))
       (wl-draft-insert-mail-header-separator)
       (wl-draft-prepare-edit)
       (goto-char (point-max))