* riece-addon.el (riece-resolve-addons): Directory don't push to addon.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bbfc311..260d297 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-10  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+       * riece-addon.el (riece-resolve-addons): Don't add directory to
+       addons.
+
 2005-02-09  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * riece-commands.el (riece-command-part): Fix argument.

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 7cf6bd4..0a5be0a 100644 (file)
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -185,7 +185,8 @@
        (append addons
               (mapcar
                (lambda (name)
-                 (intern (file-name-sans-extension name)))
+                 (unless (file-directory-p name)
+                   (intern (file-name-sans-extension name))))
                (directory-files riece-addon-directory nil "\\`[^.]" t)))
      addons)))