Function: gnus-group-suspend

gnus-group-suspend is an interactive and byte-compiled function defined in gnus-group.el.gz.

Signature

(gnus-group-suspend)

Documentation

Suspend the current Gnus session.

In fact, cleanup buffers except for group mode buffer. The hook gnus-suspend-gnus-hook is called before actually suspending.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-suspend ()
  "Suspend the current Gnus session.
In fact, cleanup buffers except for group mode buffer.
The hook `gnus-suspend-gnus-hook' is called before actually suspending."
  (interactive nil gnus-group-mode)
  (gnus-run-hooks 'gnus-suspend-gnus-hook)
  (gnus-offer-save-summaries)
  ;; Kill Gnus buffers except for group mode buffer.
  (let ((group-buf (get-buffer gnus-group-buffer)))
    (dolist (buf (gnus-buffers))
      (unless (or (eq buf group-buf)
		  (eq buf gnus-dribble-buffer)
		  (with-current-buffer buf
		    (derived-mode-p 'message-mode)))
	(gnus-kill-buffer buf)))
    (setq gnus-backlog-articles nil)
    (gnus-kill-gnus-frames)
    ;; Closing all the backends is useful (for instance) when the
    ;; IP addresses have changed and you need to reconnect.
    (dolist (elem gnus-opened-servers)
      (gnus-close-server (car elem)))
    (when group-buf
      (bury-buffer group-buf)
      (delete-windows-on group-buf t))))