From 6f4ad916094cbcc21a8d82ea2b091f98a3683240 Mon Sep 17 00:00:00 2001 From: Daiki 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) -- 2.25.1