* liece-commands.el (liece-command-set-operators): Reset `run'.

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

diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index 53ab9ec..bbcba82 100644 (file)
--- a/lisp/liece-commands.el
+++ b/lisp/liece-commands.el
@@ -39,7 +39,6 @@
 (require 'liece-minibuf)
 
 (autoload 'liece-dcc-chat-send "liece-dcc")
-(autoload 'liece-window-configuration-pop "liece-window")
 
 (autoload 'liece-command-ctcp-version "liece-ctcp" nil t)
 (autoload 'liece-command-ctcp-userinfo "liece-ctcp" nil t)
@@ -497,8 +496,9 @@ Argument CHANGE ."
     (unwind-protect
        (dolist (nick nicks)
          (push nick run)
-         (if (= (length run) liece-compress-mode-length)
-             (liece-command-qualify-nicks ?o run (not arg))))
+         (when (= (length run) liece-compress-mode-length)
+           (liece-command-qualify-nicks ?o run (not arg))
+           (setq run nil)))
       (when run
        (liece-command-qualify-nicks ?o run (not arg))))))
 
@@ -521,8 +521,9 @@ Argument CHANGE ."
     (unwind-protect
        (dolist (nick nicks)
          (push nick run)
-         (if (= (length run) liece-compress-mode-length)
-             (liece-command-qualify-nicks ?v run (not arg))))
+         (when (= (length run) liece-compress-mode-length)
+           (liece-command-qualify-nicks ?v run (not arg))
+           (setq run nil)))
       (when run
        (liece-command-qualify-nicks ?v run (not arg))))))
 
@@ -760,13 +761,9 @@ 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-close-server quit-string))
-    (liece-clear-system)
-    (if liece-save-variables-are-dirty
-       (liece-command-save-vars))
-    (if (interactive-p)
-       (liece-window-configuration-pop))
-    (run-hooks 'liece-exit-hook)))
+      (if quit-string
+         (liece-send "QUIT :%s" quit-string)
+       (liece-send "QUIT")))))
 
 (defun liece-command-generic (message)
   "Enter a generic IRC MESSAGE, which is sent to the server.