Function: gnus-remove-denial

gnus-remove-denial is a byte-compiled function defined in gnus-int.el.gz.

Signature

(gnus-remove-denial COMMAND-METHOD)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-int.el.gz
(defun gnus-remove-denial (command-method)
  (let* ((gnus-command-method
         (if (stringp command-method)
             (gnus-server-to-method command-method)
           command-method))
         (elem (assoc gnus-command-method gnus-opened-servers))
	 (status (cadr elem)))
    ;; If this hasn't been opened before, we add it to the list.
    (when (eq status 'denied)
      ;; Set the status of this server.
      (setcar (cdr elem) 'closed))))