(setq server-list (cdr server-list))))
(let ((pointer riece-addons))
(while pointer
- (riece-enable-addon (car pointer) riece-debug)
+ (unless (get (car pointer) 'riece-addon-default-disabled)
+ (riece-enable-addon (car pointer) riece-debug))
(setq pointer (cdr pointer))))
(run-hooks 'riece-startup-hook)
(message "%s" (substitute-command-keys