From 27d39c3952ee5b0a8f8ad6afd1603ec95706ba44 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 15 Aug 2005 00:17:08 +0000 Subject: [PATCH] Fixed. --- lisp/riece-irc.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/riece-irc.el b/lisp/riece-irc.el index 66146de..d2c5a4d 100644 --- a/lisp/riece-irc.el +++ b/lisp/riece-irc.el @@ -96,12 +96,18 @@ (if (rassq process riece-server-process-alist) (delete-process process))) process)) - (message "Sending QUIT to server...") - (riece-process-send-string process - (if message - (format "QUIT :%s\r\n" message) - "QUIT\r\n")) - (message "Sending QUIT to server...done")) + (let ((server-name (with-current-buffer (process-buffer process) + riece-server-name))) + (if (equal server-name "") + (message "Sending QUIT...") + (message "Sending QUIT to \"%s\"..." server-name)) + (riece-process-send-string process + (if message + (format "QUIT :%s\r\n" message) + "QUIT\r\n")) + (if (equal server-name "") + (message "Sending QUIT...done") + (message "Sending QUIT to \"%s\"...done")))) (provide 'riece-irc) -- 1.7.10.4