* wl-folder.el (wl-folder-get-newsgroups): Use `elmo-folder-newsgroups'.

[elisp/wanderlust.git] / elmo / elmo-nntp.el

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 39a7fa0..327bdd2 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -111,6 +111,9 @@
                      (expand-file-name "nntp"
                                        elmo-msgdb-dir)))))
 
+(luna-define-method elmo-folder-newsgroups ((folder elmo-nntp-folder))
+  (list (elmo-nntp-folder-group-internal folder)))
+
 ;;; NNTP Session
 (eval-and-compile
   (luna-define-class elmo-nntp-session (elmo-network-session)