+ (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"))))