[Erc-commit] [commit][master] /GQ: Kill query buffers after 4 seconds if user wants it

[mwolson]

commit ffab470eeadb67e3aa7cb470a24ca2c009077dee
Author: Michael W. Olson <address@hidden>
Date:   Sun Aug 26 20:11:32 2007 -0400

    /GQ: Kill query buffers after 4 seconds if user wants it
    
    * erc.el (erc-cmd-GQUIT): If erc-kill-queries-on-quit is non-nil, kill
      all query buffers after 4 seconds.

diff --git a/ChangeLog b/ChangeLog
index 461a34d..f9594d8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-27  Michael Olson  <address@hidden>
+
+       * erc.el (erc-cmd-GQUIT): If erc-kill-queries-on-quit is non-nil,
+       kill all query buffers after 4 seconds.
+
 2007-08-16  Michael Olson  <address@hidden>
 
        * NEWS: Add ERC 5.3 changes section, and mention jbms' erc-track
diff --git a/erc.el b/erc.el
index 1628fbd..2c931d8 100644
--- a/erc.el
+++ b/erc.el
@@ -3258,7 +3258,17 @@ the message given by REASON."
 (defun erc-cmd-GQUIT (reason)
   "Disconnect from all servers at once with the same quit REASON."
   (erc-with-all-buffers-of-server nil #'erc-open-server-buffer-p
-                                 (erc-cmd-QUIT reason)))
+                                 (erc-cmd-QUIT reason))
+  (when erc-kill-queries-on-quit
+    ;; if the query buffers have not been killed within 4 seconds,
+    ;; kill them
+    (run-at-time
+     4 nil
+     (lambda ()
+       (dolist (buffer (erc-buffer-list (lambda (buf)
+                                         (not (erc-server-buffer-p buf)))))
+        (kill-buffer buffer)))))
+  t)
 
 (defalias 'erc-cmd-GQ 'erc-cmd-GQUIT)
 (put 'erc-cmd-GQUIT 'do-not-parse-args t)