From de0978ace1d12b39bd95de0d2ff63d652baf4ffe Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Fri, 21 Aug 1998 02:41:50 +0000 Subject: [PATCH] (gnus-group-suspend): "real" fix. Don't blame me for changes in 5.6.38; it's not what I sent to Lars. --- lisp/gnus-group.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 10a9bd9..408b7ac 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -3161,12 +3161,12 @@ In fact, cleanup buffers except for group mode buffer. The hook gnus-suspend-gnus-hook is called before actually suspending." (interactive) (gnus-run-hooks 'gnus-suspend-gnus-hook) - ;; Kill Gnus buffers except for group mode buffer. - (let* ((group-buf (get-buffer gnus-group-buffer))) - (apply (lambda (buf) - (unless (equal buf group-buf) - (kill-buffer buf))) - (gnus-buffers)) + ;; Kill Gnus buffers except for group buffer and dribble buffer. + (let ((group-buf (get-buffer gnus-group-buffer))) + (mapcar (function kill-buffer) + (delete group-buf + (delete gnus-dribble-buffer + (append (gnus-buffers) nil)))) (gnus-kill-gnus-frames) (when group-buf (bury-buffer group-buf) -- 1.7.10.4