neale
/
rcirc
mirror of https://github.com/nealey/rcirc
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed the message when trying to reconnect to a connected server 

The error happened because the connection wrapped with tls return t
(it's a child, not a network process -- I guess)

	modified:   rcirc.el
This commit is contained in:
Marco 2011-04-06 11:10:38 +02:00
parent 2146f06ca6
commit 2e98a6482a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rcirc.el
View File

@ -430,10 +430,11 @@ If ARG is non-nil, instead prompt for connection parameters."
connect-function) connect-function)
(quit (message "Quit connecting to %s" server))) (quit (message "Quit connecting to %s" server)))
(with-current-buffer (process-buffer connected) (with-current-buffer (process-buffer connected)
(if (process-contact (get-buffer-process
(current-buffer)) :host)
(setq connected-servers (setq connected-servers
(cons (process-contact (get-buffer-process (cons (process-name connected)
(current-buffer)) :host) connected-servers)))))))))
connected-servers))))))))
(when connected-servers (when connected-servers
(message "Already connected to %s" (message "Already connected to %s"
(if (cdr connected-servers) (if (cdr connected-servers)