Function: gnus-agent-delete-group

gnus-agent-delete-group is an autoloaded and byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-delete-group GROUP)

Documentation

Delete fully-qualified GROUP.

Always updates the agent, even when disabled, as the old agent files would corrupt gnus when the agent was next enabled. Depends upon the caller to determine whether group deletion is supported.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
;;;###autoload
(defun gnus-agent-delete-group (group)
  "Delete fully-qualified GROUP.
Always updates the agent, even when disabled, as the old agent
files would corrupt gnus when the agent was next enabled.
Depends upon the caller to determine whether group deletion is
supported."
  (let* ((command-method (gnus-find-method-for-group group))
	 (path           (directory-file-name
			  (let ((gnus-command-method command-method))
			    (gnus-agent-group-pathname group))))
	 (file-name-coding-system nnmail-pathname-coding-system))
    (gnus-delete-directory path)

    (let* ((real-group (gnus-group-real-name group)))
      (gnus-agent-save-group-info command-method real-group nil)
      ;; FIXME: Does gnus-agent-get-local have any useful side-effect?
      (gnus-agent-get-local group real-group command-method)
      (gnus-agent-set-local group
                            nil nil
                            real-group command-method))))