* liece-commands.el (liece-command-quit): Don't send QUIT.

[elisp/liece.git] / lisp / liece-commands.el

diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index 963fc55..8d3331e 100644 (file)
--- a/lisp/liece-commands.el
+++ b/lisp/liece-commands.el
@@ -821,9 +821,8 @@ If prefix argument ARG is non-nil, leave signoff message."
           (if arg (read-string (_ "Signoff message: "))
             (or liece-signoff-message
                 (product-name (product-find 'liece-version))))))
-      (liece-send "QUIT :%s" quit-string))
+      (liece-close-server quit-string))
     (liece-clear-system)
-    (liece-close-server)
     (if liece-save-variables-are-dirty
        (liece-command-save-vars))
     (if (interactive-p)