Update the default value of riece-url-regexp.

[riece] / lisp / riece-addon.el

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 3fac57f..61e30f9 100644 (file)
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -335,7 +335,7 @@ All normal editing commands are turned off."
            (cons (cons (car (car pointer))
                        (if (and description
                                 (boundp description))
-                           (symbol-value description)
+                           (riece-mcat (symbol-value description))
                          (riece-mcat "(no description)")))
                  module-description-alist)
            pointer (cdr pointer)))
@@ -344,7 +344,8 @@ All normal editing commands are turned off."
       (unless (assq (car (car pointer))
                    module-description-alist)
        (setq module-description-alist
-             (cons (car pointer) module-description-alist)))
+             (cons (cons (car (car pointer)) (riece-mcat (cdr (car pointer))))
+                   module-description-alist)))
       (setq pointer (cdr pointer)))
     (erase-buffer)
     (riece-kill-all-overlays)
@@ -460,7 +461,8 @@ Useful keys:
                                    (list (symbol-name (car dependency))))
                                  riece-addon-modules)
                          (lambda (pointer)
-                           (not (get (car pointer) 'riece-addon-insinuated)))
+                           (not (get (intern-soft (car pointer))
+                                     'riece-addon-insinuated)))
                          t)))))
   (riece-insinuate-addon addon 'ask)
   (when (eq major-mode 'riece-addon-list-mode)
@@ -478,7 +480,8 @@ Useful keys:
                                    (list (symbol-name (car dependency))))
                                  riece-addon-dependencies)
                          (lambda (pointer)
-                           (get (car pointer) 'riece-addon-insinuated))
+                           (get (intern-soft (car pointer))
+                                'riece-addon-insinuated))
                          t)))))
   (riece-uninstall-addon addon t)
   (when (eq major-mode 'riece-addon-list-mode)
@@ -496,7 +499,8 @@ Useful keys:
                                    (list (symbol-name (car dependency))))
                                  riece-addon-dependencies)
                          (lambda (pointer)
-                           (get (car pointer) 'riece-addon-insinuated))
+                           (get (intern-soft (car pointer))
+                                'riece-addon-insinuated))
                          t)))))
   (riece-uninstall-addon addon t)
   (if (get addon 'riece-addon-not-unloadable)