From: yoichi <yoichi>
Date: Fri, 10 Jan 2003 17:12:21 +0000 (+0000)
Subject: * wl-news.el.in (wl-news-send-news): Add 3rd argument `folder'
X-Git-Tag: merged-trunk-to-elmo-mark-14~36
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6065e76e4b2b37940113dd95cea45f02307e22e7;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))))))