projects
/
elisp
/
riece.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
67d35c0
)
* riece.el (riece): Scan riece-startup-channel-list and open servers.
author
ueno
<ueno>
Tue, 5 Oct 2004 23:08:55 +0000
(23:08 +0000)
committer
ueno
<ueno>
Tue, 5 Oct 2004 23:08:55 +0000
(23:08 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/riece.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
fecf400
..
67daa33
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,3
+1,7
@@
+2004-10-05 Daiki Ueno <ueno@unixuser.org>
+
+ * riece.el (riece): Scan riece-startup-channel-list and open servers.
+
2004-09-27 Daiki Ueno <ueno@unixuser.org>
* riece-options.el (riece-send-delay): Set default to 2.
2004-09-27 Daiki Ueno <ueno@unixuser.org>
* riece-options.el (riece-send-delay): Set default to 2.
diff --git
a/lisp/riece.el
b/lisp/riece.el
index
33d3030
..
e815b16
100644
(file)
--- a/
lisp/riece.el
+++ b/
lisp/riece.el
@@
-310,6
+310,14
@@
If optional argument CONFIRM is non-nil, ask which IRC server to connect."
(while server-list
(riece-command-open-server (car server-list))
(setq server-list (cdr server-list))))
(while server-list
(riece-command-open-server (car server-list))
(setq server-list (cdr server-list))))
+ (let ((channel-list riece-startup-channel-list)
+ server)
+ (while channel-list
+ (setq server (riece-identity-server
+ (riece-parse-identity (car channel-list))))
+ (unless (riece-server-opened server)
+ (riece-command-open-server server))
+ (setq channel-list (cdr channel-list))))
(let ((pointer riece-addons))
(while pointer
(unless (get (car pointer) 'riece-addon-default-disabled)
(let ((pointer riece-addons))
(while pointer
(unless (get (car pointer) 'riece-addon-default-disabled)