From: okada <okada>
Date: Mon, 19 Nov 2001 14:59:05 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-get-newsgroups): Fix.
X-Git-Tag: wl-2_8-root~140
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=266318a3f7ee4c2f8cb2ed8a3c10b4579febd1a6;p=elisp%2Fwanderlust.git

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

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