projects
/
elisp
/
riece.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-irc.el (riece-irc-quit-server-process): Display message
[elisp/riece.git]
/
lisp
/
riece-irc.el
diff --git
a/lisp/riece-irc.el
b/lisp/riece-irc.el
index
0a29660
..
66146de
100644
(file)
--- 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))
(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)
(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)
(provide 'riece-irc)