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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2c31be4..f1a4a15 100644 (file)
--- 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 (file)
--- 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)))))