From 2e98a6482aec1c825204ba42a0dac5e96a8e82f0 Mon Sep 17 00:00:00 2001 From: Marco Date: Wed, 6 Apr 2011 11:10:38 +0200 Subject: [PATCH] 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 --- rcirc.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/rcirc.el b/rcirc.el index 079f9e0..e3172a9 100644 --- a/rcirc.el +++ b/rcirc.el @@ -430,10 +430,11 @@ If ARG is non-nil, instead prompt for connection parameters." connect-function) (quit (message "Quit connecting to %s" server))) (with-current-buffer (process-buffer connected) + (if (process-contact (get-buffer-process + (current-buffer)) :host) (setq connected-servers - (cons (process-contact (get-buffer-process - (current-buffer)) :host) - connected-servers)))))))) + (cons (process-name connected) + connected-servers))))))))) (when connected-servers (message "Already connected to %s" (if (cdr connected-servers)