* wl-folder.el (wl-folder-get-newsgroups): Fix.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 071a758..7ef8513 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-19  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-folder.el (wl-folder-get-newsgroups): Fix.
+
 2001-11-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * 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 (file)
--- 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)