(let ((pointer riece-addons))
(while pointer
(riece-insinuate-addon (car pointer) riece-debug)
- (unless (get (car pointer) 'riece-addon-default-disabled)
- (riece-enable-addon (car pointer) riece-debug))
(setq pointer (cdr pointer))))
(setq riece-addons-insinuated t))
(if (or confirm (null riece-server))
(while server-list
(riece-command-open-server (car server-list))
(setq server-list (cdr server-list))))
+ (let ((pointer riece-addons))
+ (while pointer
+ (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
"Type \\[describe-mode] for help"))))