From 6065e76e4b2b37940113dd95cea45f02307e22e7 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 10 Jan 2003 17:12:21 +0000 Subject: [PATCH] * wl-news.el.in (wl-news-send-news): Add 3rd argument `folder' to avoid compile warning. --- wl/ChangeLog | 3 +++ wl/wl-news.el.in | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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 + * 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)))))) -- 1.7.10.4