From cb21d2a5591ea8f7d94ccf87cfcede6ae67a8f52 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 15 Aug 2005 00:13:20 +0000 Subject: [PATCH] * riece-irc.el (riece-irc-quit-server-process): Display message before/after sending QUIT. --- lisp/ChangeLog | 5 +++++ lisp/riece-irc.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 00cb3c9..092c5ae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-08-15 Daiki Ueno + + * riece-irc.el (riece-irc-quit-server-process): Display message + before/after sending QUIT. + 2005-08-14 Daiki Ueno * riece.el (riece-addons-insinuated): Abolished. diff --git a/lisp/riece-irc.el b/lisp/riece-irc.el index 0a29660..66146de 100644 --- a/lisp/riece-irc.el +++ b/lisp/riece-irc.el @@ -96,10 +96,12 @@ (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"))) + "QUIT\r\n")) + (message "Sending QUIT to server...done")) (provide 'riece-irc) -- 1.7.10.4