From 266318a3f7ee4c2f8cb2ed8a3c10b4579febd1a6 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 19 Nov 2001 14:59:05 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-get-newsgroups): Fix. --- wl/ChangeLog | 4 ++++ wl/wl-folder.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 071a758..7ef8513 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2001-11-19 Kenichi OKADA + + * wl-folder.el (wl-folder-get-newsgroups): Fix. + 2001-11-19 Yoichi NAKAYAMA * wl-draft.el (wl-draft): Added 14th argument `parent-folder'. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 5a47007..21a34ea 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2030,7 +2030,8 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'." "Return Newsgroups field value string for FOLDER newsgroup. If FOLDER is multi, return comma separated string (cross post)." (list nil nil (mapconcat 'identity - (elmo-folder-newsgroups folder) + (elmo-folder-newsgroups + (wl-folder-get-elmo-folder folder)) ","))) (defun wl-folder-guess-mailing-list-by-refile-rule (entity) -- 1.7.10.4