projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-server.el (riece-open-server): Simplify message.
[riece]
/
lisp
/
riece-server.el
diff --git
a/lisp/riece-server.el
b/lisp/riece-server.el
index
e0d3742
..
0bb1eaa
100644
(file)
--- a/
lisp/riece-server.el
+++ b/
lisp/riece-server.el
@@
-104,7
+104,7
@@
the `riece-server-keyword-map' variable."
(defun riece-open-server (server &optional server-name)
(if server-name
(defun riece-open-server (server &optional server-name)
(if server-name
- (message "Connecting to
IRC server on
%s..." server-name)
+ (message "Connecting to %s..." server-name)
(message "Connecting to IRC server..."))
(riece-server-keyword-bind server
(let* (selective-display
(message "Connecting to IRC server..."))
(riece-server-keyword-bind server
(let* (selective-display
@@
-118,7
+118,8
@@
the `riece-server-keyword-map' variable."
" *IRC*"))
host service)))
(riece-reset-process-buffer process)
" *IRC*"))
host service)))
(riece-reset-process-buffer process)
- (setq riece-server-name server-name)
+ (with-current-buffer (process-buffer process)
+ (setq riece-server-name server-name))
(set-process-sentinel process 'riece-sentinel)
(set-process-filter process 'riece-filter)
(if (or password
(set-process-sentinel process 'riece-sentinel)
(set-process-filter process 'riece-filter)
(if (or password
@@
-144,7
+145,7
@@
the `riece-server-keyword-map' variable."
riece-server-process-alist))
(setq riece-server-process process))))
(if server-name
riece-server-process-alist))
(setq riece-server-process process))))
(if server-name
- (message "Connecting to
IRC server on
%s...done" server-name)
+ (message "Connecting to %s...done" server-name)
(message "Connecting to IRC server...done")))
(defun riece-reset-process-buffer (process)
(message "Connecting to IRC server...done")))
(defun riece-reset-process-buffer (process)