* wl-news.el.in (wl-news-send-news): Add 3rd argument `folder'

to avoid compile warning.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d4886fc..5435629 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2003-01-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+       * wl-news.el.in (wl-news-send-news): Add 3rd argument `folder'
+       to avoid compile warning.
+
        * wl-summary.el (wl-summary-goto-folder-subr): Fix logic: set
        entity-id when folder is given.
        * wl-folder.el (wl-folder-set-current-entity-id): Don't use

diff --git a/wl/wl-news.el.in b/wl/wl-news.el.in
index f485014..020f35a 100644 (file)
--- a/wl/wl-news.el.in
+++ b/wl/wl-news.el.in
@@ -138,7 +138,7 @@
         (product-version (product-find 'wl-version))
         (car (wl-news-previous-version-load)))))
 
-(defun wl-news-send-news (version news-lang)
+(defun wl-news-send-news (version news-lang folder)
   (require 'wl-draft)
   (let ((lang (if (listp wl-news-lang)
                  wl-news-lang
@@ -283,7 +283,7 @@
                            wl-default-folder)))
            (setq folder
                  (wl-summary-read-folder wl-default-folder "to append ")))
-       (or (wl-news-send-news wl-news-buffer-oldest-version wl-news-lang)
+       (or (wl-news-send-news wl-news-buffer-oldest-version wl-news-lang folder)
            (error
             (format "Cannot append NEWS mail to %s" folder))))))