From 919dc8a851970cfe6b80b7662f3570fdd2c383da Mon Sep 17 00:00:00 2001 From: okada Date: Thu, 19 Dec 2002 19:46:28 +0000 Subject: [PATCH] * WL-MK (wl-news-parse-news-subr): Decide coding-system. * wl-news.el.in (wl-news-send-news): Delete Organization and X-Face. --- ChangeLog | 5 +++++ WL-MK | 3 ++- wl/ChangeLog | 5 +++++ wl/wl-news.el.in | 6 +----- 4 files changed, 13 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 305c470..abce16d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2002-12-20 Kenichi OKADA + * WL-MK (wl-news-parse-news-subr): Decide + coding-system. + +2002-12-20 Kenichi OKADA + * 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 --- 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 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2002-12-20 Kenichi OKADA + * wl-news.el.in (wl-news-send-news): Delete + Organization and X-Face. + +2002-12-20 Kenichi OKADA + * 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 --- a/wl/wl-news.el.in +++ b/wl/wl-news.el.in @@ -113,11 +113,7 @@ (list (cons 'From "WL Release 'Bot ") (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)) -- 1.7.10.4