From 0efcbdd63e098ad28793d3a5bb3d20d93e93a938 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 31 May 2003 23:24:46 +0000 Subject: [PATCH] Fixed. --- lisp/riece-server.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/riece-server.el b/lisp/riece-server.el index e0d3742..d2ae3b6 100644 --- 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 - (message "Connecting to IRC server on %s..." server-name) + (message "Connecting to IRC server %s..." server-name) (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) - (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 @@ -144,7 +145,7 @@ the `riece-server-keyword-map' variable." 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 IRC server %s...done" server-name) (message "Connecting to IRC server...done"))) (defun riece-reset-process-buffer (process) -- 1.7.10.4