Function: gnus-similar-server-opened

gnus-similar-server-opened is a byte-compiled function defined in gnus.el.gz.

Signature

(gnus-similar-server-opened METHOD)

Documentation

Return non-nil if we have a similar server opened.

This is defined as a server with the same name, but different parameters.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus.el.gz
(defun gnus-similar-server-opened (method)
  "Return non-nil if we have a similar server opened.
This is defined as a server with the same name, but different
parameters."
  (let ((opened gnus-opened-servers)
	open)
    (while (and method opened)
      (setq open (car (pop opened)))
      ;; Type and name are the same...
      (when (and (equal (car method) (car open))
		 (equal (cadr method) (cadr open))
		 ;; ... but the rest of the parameters differ.
		 (not (gnus-methods-sloppily-equal method open)))
	(setq method nil)))
    (not method)))