From: okada <okada>
Date: Fri, 20 Dec 2002 14:34:15 +0000 (+0000)
Subject: * wl-news.el.in (wl-news-send-news): Add 'Date' header.
X-Git-Tag: merged-trunk-to-elmo-mark-14~85
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f720c5ad7dccab81eaa4860b8af3dfed8ff9768d;p=elisp%2Fwanderlust.git

* wl-news.el.in (wl-news-send-news): Add 'Date' header.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2c31be4..f1a4a15 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-12-20  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-news.el.in (wl-news-send-news): Add 'Date' header.
+
 2002-12-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-news.el.in (wl-news-send-to-address): New variable.
diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index 7b3a763..5d1c987 100644
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -120,15 +120,18 @@
 		 (cons 'To (wl-draft-eword-encode-address-list
 			    wl-news-send-to-address))
 		 (cons 'Subject "Wanderlust NEWS")
+		 (cons 'Date (wl-make-date-string))
 		 (cons 'User-Agent wl-generate-mailer-string-function)))
       (wl-draft-insert-mail-header-separator)
       (wl-draft-prepare-edit)
       (goto-char (point-max))
-      (insert "This message is automatically generated by Wanderlust.\n")
+      (insert "\nThis message is automatically generated by Wanderlust.\n\n")
+      ;; insert news
       (while (car lang)
 	(wl-news-append-news
 	 (car lang) previous-version)
 	(setq lang (cdr lang)))
+      ;; send
       (let (wl-interactive-send)
 	(wl-draft-send 'kill-when-done)))))